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1 

2 
3 
4 
5 
6 

7 |FOCAL'»GT 
8 

9 |DECi-ll»r.GP5At-A*LA 

10 

11 fCOPYRIGHT 1972,197 5 

12 

13 »DIGTTAL EQUIPMENT COHPORAflON 

14 JMAYMARD, MASSACHUSETTS e!l754 
15 

16 fGT40 CODE BY BOB FRIKDEMTHAL 

17 

18 fEDiT 2 

19 IMARCH XI, 1973 
?0 

?1 

512 IFOR GT40 COWOITIONALXEATION INSTRUCTIONS* SEE DNKW CODE 

93 ILABELLED #*DNEW## NEAR KND OF THIS LISTING 

34 

25 

?6 

97 iDOCimEKTATlON MOTES I 

28 iDOUBlfE OUOTE MARKS DENOTE TRAP»I!ySTRUCTlON MODUT-ES 

29 f(X3 MEAWS THE CONTENT*OF"X, 

50 fASTERISKS DENOTE COMMAND MODULES, 

31 I "CR, "MEANS "CARRIAGE RETUR^T", 

32 fSlHGLE QUOTE MARKS DENOTE A SyBROWTlNE, 
33 

34 
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16 

S7 tASSTGNMrMTS Of RfclGISTERS 

18 

19 

40 fAR USED GFNFHALLY 

41 m^'^Tiid Tt:MPs%0 rSCPATCH 

42 mm?ii ACs%l lACCUMUtiAinR 

43 000002 PTHB%2 fVARIABLF POTMF.R 

44 00»0f?3 AX0UT«%3 ITEXT RKADFP 

45 CHAR«%4 fCMAPACTFB 

46 P500««S R5e%5 jKXCEPTIONAL USf. REGTSTEP AND RUBOt'T i>ROTECTTO^'- 
47 

48 000006 5PiS%6 I STACK POIK'TKR 

49 000007 PC«%7 fPROGKAM COUMTFR PDP^ll 
^0 

51 lAS USED BY OUTPUT CONVERSION 

52 000000 PsTEMP fPLACES BEFORE " , » 

53 000001 AC«AC tTOTAL NO, OF DIGITS, 

54 000002 E«PTR fNO, OF INTEGER DIGITS 

55 000003 F«AXOUT fTOTAL NO, OF PLACFS, 

56 000004 CHAR«CHAP |N0, OF DEClMAf, POINTS 

57 00000»> RS«R5 ISCRAICM 
58 

59 

fi0 lAS USED BY MAIN FLOATING POINT 

fil 000000 TEMPbTEMP iSCRAXCH 

ft2 000001 ACwAC f INPUT EXPfMAY CONTAIN OP-CODES 

fi3 000002 8H«PTR »FLAC HORU|MAY CONTAIN ADDRESS 

64 000003 Bli«AXOUT fFLAC LORDfMAY BE NEEDED BY FRFAD 

fi5 000004 AH«CHAR | INPUT HORD|MAY BE NEEDED BY FREAO 

66 000005 AlisRB | INPUT LORD 

67 

68 

69 000200 ONE»200 ISWITCH ASSIGNME^ITS 

70 000001 ALL«i 

71 000020 NALPHA«20 |0«TERMINATE ON ASCII CORES 

72 > l«TERMINATfc; ON nC,R,ALSO 
73 

74 000216 CR"216 | INTERNAL CODE 

76 00501S eRLFii050!l ffOR USK IN »PRIMT2f CRLF" 
76 

77 177560 TKS»177560 iTELCTYPE KEYBOARD 

78 177564 TPS-177S64 »TELETYPE PRINTER 

79 177514 LPS«177514 fLINE PRINTER 
R0 177550 PRS«177SS0 »H,S, READER 
81 177554 PPS»l77554 tH,S, PUVCH 
fl2 177776 STATUS8177776 
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fl4 






fMAlM VECTORS 




flS 










R6 




000000 


,«0 


pRFSERVEn FOR MAM.JAr. RESTART VFCTOR 


R7 




000117 0f^l07? 


JMP ?iINIT2 


SB 






1 .s4 


lERROR TRAP VECTHRt STACK OVFRFLO**/ TRAP 


«9 




0017(^6 


STACKO 




Q0 


0000^6 


000 34 


340 




91 






f •«10 


iRESFRVtn INST 


92 


00001? 


00S472 


FEMT 




93 


P»t5f^0}2 


000100 


100 




94 




, 


1 t«l4 


f OHT 


95 


«»0001 4 


001706 


STACKO 




96 


000016 


000340 


340 




97 






f ,»20 


HOT 


98 




000004 


DELKTEalOT 


IREMOVE A tiNE OF TEXT 


99 


000090 


003272 


XDFLET 




100 


000022 


000340 


340 




l^i 






f i»24 


f PWR-fAlL/AUTO-RESTART 


1«?2 


000024 


005752 


PWRDWN 




1<?3 


000026 


000340 


340 




104 






1 1»30 


lEMT 


1»B 


000030 


001706 


STACKO 




1«6 


01^0032 


000340 


340 




If? 






l,«34 


ITRAP 


!?!8 


000034 


001714 


TRAPH 




1(»9 


000036 


000340 


340 




110 






P«b40 


ISYSTEM VECTORS 


111 










112 




000060 


,»60 




113 


000060 


010110 


KINT 




114 


000062 


000340 


340 




115 






fHERE TO iBEGtMi 


IS EfiROED BY »1W1T>, 


116 










117 








1 OTHER VECTORS? 


118 










119 






1 ,8100 


1 CLOCK OPTIOW 


1J0 










1?1 






f t*200 


turn PRINTER 


192 










133 










1?4 








fPAlCH AREA 


1?6 
















I,a234 


lUDC VECTOR 


127 










128 






t ,s300 


lEXTRA TTY 
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130 








131 








132 






001 3.00 


1 33 








1 34 






0011 00 


1 35 








136 








187 








138 








139 








140 


PI01 


100 


000000 


141 


001 


102 


000000 


142 


001 


,04 


006376 


143 


001 


,06 


013353 


144 


9^1 


L 10 


006402 


145 


001 


. 1 2 


014032 


146 


, 0451 


. 1 4 


01 1026 


147 


' 001 


, 1 6 


01401 2 


148 


001 


.20 


010760 


149 


001 


,22 


013442 


l"i0 


001 


.24 


010704 


ISl 


001 


,26 


013762 


192 


00r 


.30 


011134 


15S 


001 


.32 


000560 


1!54 


001 


,34 


011070 


155 


001 


136 


013343 


1«^6 


001 


;40 


010194 


1!57 


001 


42 


014110 


158 


001 


44 


010416 


159 


001 


.46 


014042 


160 


001 


i50 


010426 


161 


001 


192 


013477 


162 


001 


154 


006406 


lft3 


001 


IS6 


013662 


1«4 


001 


160 


010272 


1«5 


001 


L62 


013453 


li6 








167 








lft8 






001166 


169 








170 








171 








172 









j<PimLIC lMrORMATIDN> 
,81100 

RKGIMS, JFI)\'CT10M TARLF. BACKS INTO STACK AREA, 



FUNCTION 


ADDRESSES AND 


NAMES. 





f EWpBOr-^tlvST MARKER, 




XAB5 


1 FABS 


»'AB5uL"Tr- vATjUF 


1 3353 






XSGN 


t fSGN 


wSTGN PART 


14032 






XFSBR 


f FSBR 


^ r T c* n f\ £• C» T \? f\ fcf (S' til P r T /** 1* T M 

*U5ER DtrlNCiD Mc#W r UriQj lUN 


14012 






XCHR 


f FCHR 


^ I "PUT /O'lTPu T vr CHftHAt.lrK I'ftlft 


13442 






XRAN 




•RANDOM NUMBFH 


13762 






XEX 


f FX 


•EXPFRIMKNTAL UNXBUS COMTROL 


560 






XADC 


fFADC 


•R€AD ANALOG TO DIGITAL CONVFRTER 


1 3343 






XSQT 


IFSQT 


-SQUARE ROOT 


14110 






rsiN 


IFSIN 


•TRIG FUNCTIONS 


14042 






FC05 


fFCOS 


•COSINE 


1 3477 






XITR 


IFITR 


•INTEGER PART 


13662 






XFCLK 


IPCLK 


•■CI'OrK TIME 


13453 







FNTARli«, + 2 fSPECIAfc XOPSX-TURVEY TABLE, 

IFUNCTION TABLE BACKS IKTO $TACK ARIA. 

»HASH CODE IS FORMED FROM 7«»Blf ASCII ^^ITH PtACE VALHE OF 4*N 
IE'.G, FX«F«4*X«106*4+U0«560 

IBITS OFF tEFT ARE LOSTf 2ERDS COME IN FROM RIGHT, 
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174 






175 




103414 


176 






1 77 




1 04ft(?'0 


1 78 


001164 


0024^6 


179 




J 0465^2 


1 90 


001166 


002440 


181 




104604 


162 


001 170 


003002 


lfl3 




104606 


1 B4 


001 172 


002710 


1 S5 




104610 


186 


001 174 


010052 


187 




104612 


1 68 


£^01 176 


010022 


189 




104614 


190 


001200 


003232 


191 




104616 


192 


001202 


003136 


193 




104620 


194 






195 






196 






197 






198 


f^01 204 


002334 


1 99 




104622 




0i^l 2PI6 


0024'>4 






104624 


7<^7 


f^f?1 21 


0P52566 


203 




1 04626 




^Kil2l 2 


003100 


2^i5 




104630 


2^6 


00121 4 


(-'04040 


2<^7 




104632 


2«8 


001216 


002034 


209 




1 04634 


210 


001220 


003126 


211 




104636 


21 2 


001222 


005100 


21 3 




104640 


214 


001224 


004050 


215 




104642 


216 


001226 


002626 


217 




104644 


218 


001230 


0026S4 


219 




104646 


220 


001232 


005206 


221 




104650 


222 


001234 


002672 


??3 




104652 


2?4 


001236 


0026S6 


22f! 




1046S4 


796 


001 24{? 


002372 


2? 7 




104656 
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JMSsi04400»,+200 

SOfJTJ = JMS 
SOPTB 

SORTC « JM5 +, 
SORTD 

PRIMTC s JMS 





OUT 


READC 


a JUS 




CHIN 


DUTCH 


a JMS 




XOUT 


INCH 


3 JM5 




XI33 


GF.fC 


s JMS 4'. 




GETX 


PACKC 


c JMS 4', 




PACKX 


TBSTC 


B JMS 




TESTX 


6ISTLN 


e JMS >!•( 




GETLNX 


FIHOI.N 


s JMS 4>a 




FINDX 


PRNTTiM 


B JMS 




XPRNTL 




B JMS *m 




f OPYLX 


START 


s JMS 4', 




STARTX 


SPNOR 


a JMS 4. 




spnorx 


KRASeV 


)■ JM8 t, 




FRVX 


ERASET 


s JMS *, 




PRTX 


PRINT2 


B JMS 4'. 




PRIN2A 


DIGTST 


» JMS 




DIGISA 


PARTST 


8 JMS 




PARTSA 


GROOVY 


» JMS 




GROVX 


SKPLPR 


B JMS 4, 




XTSTT-P 


SKPNON 


B JMS 




SKPNOX 


TASK 


• JMS 



f TRAP-INTERPPETIVE TABLE 
ISOKT AND BRAx'CH ON fCHAR) 
iSOKT CHAH 
|PRI?^T CHAR-'S 

iPFAn DATA IMTO CHAR AMD PPI^'T IT-S 

lOUTPUT TO A DEVICE 

flNPtlT FROM A DEVICI:; 

f UNPACK A CHARACTER'S 

I SAVE A CHARACTER •S 

IRFTTJRNS on fCHAR)B 
I TERM 
t NUMBER 
» FUNCTION 
fRETURN»ON»LETTEP 

I UNPACK AND FORM A LINEMUMBER 

fSEARCH FOR A GIVEN LINE 

fPRlNX (LIWENO) 

I READ NEXT LIME NUMBER 

fRETURN TO COMMAND/INPUT MODE 

I IGNORE SPACES»S 

fCRASE AND SET VARIABLES, 

I ERASE TEXT 

fPRlNT TWO CHARACTERS 

ITKST FOR A DIGIT OF INDICATED PLACE VALUE 

fCHECK FOR PARENTHE5TS MATCH, 

I COMPARE GROUP HOS, 

ISKIP !F (CHAR) IS A LKFT PARENS. 

I SKIP TF NOT A NUMHKR 

|D0 FORMAT CONTROLS FOR »ASK»TYPF# 



ImAIM, ?^A(!yil,6?? !9«MAI?*73 13101 PARE 5«| 
rOCGT,002 



2?8 0fe)J 242 f!054J2 TASKX 

229 104666J FVAL.X « JMS +, | "PUSHJ F.VAL-2" 

2^?' 004664 EVALUX 
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2S2 




?33 




214 


f^01246 1 0466? 


2B5 




?'^6 




217 




218 




219 




240 




241 




242 




243 


104400 


244 




24b 




246 




247 




248 




249 


024646 


25^5 




2'5i 


022626 


252 




253 


104400 


2?>4 




2'55 


000207 
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JMS + ', fSPAPE FOR PATCHFS, 



ERRORO104400 iTRAP 

f PUSH J XsJSR PCX 

OPENO024646 fCMP -ifSP), -CSP) 

CLOSF;»022626 |CMP CSP5*, fSP) + 
PRI'IT»104400 fTRAP+(0,l#1775 FOR ASCII COnt;S, 
POPJe207 iRTS PC 
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rOCGT,002 

297 



258 
259 




001 250 


COMLSTs . 




COMWAND DECODX^^G LIST 




2ftf 
2ftl 








t F.WGf , I RH 








262 


P*0125C? 


005244 


ASK 


1 ASK 




f INTFHROniJK 


1 C /I v,% C* 


263 


001252 


003502 


T' r\ n w r> V 


1 g p" f 


ILF.VE 


IXFCUTF 




264 


001254 


003524 


PC ! 


t rnNiMF'.NT 


f COMMKfJTt; 


rCOMENTARIO 


• K M M V M T & R 


26S 


(901256 


004066 


no 


t DO 


>FAIZ 


f HAGA 


* M A r Vt f>' 

f f*^ « V« n w 


266 


001260 


003744 


ERASE 


f ERASE 


IBIFKE 


fHORRE 




267 


001262 


004222 


FOR 


1 EOH 




fPAKA 




26S 


001264 


003436 


GOTO 


1 GflTft 


fVA 


IAOETjA^'TE 




269 


001266 


003502 


f-i r> w JT^ Vt 


f Hm 


^K* 


»G- 




270 


001270 


003374 


TP" 


f * r 


f SI 


PSI 




271 


001272 


001S02 


FRRQRC 

In r» W I* V 


1 w ^ 


» J- 


) J« 




272 


001274 


001704 


STOP 


1 KILL 


IHAI-TE 


f HAIjTE 


1 HALT 


271 


001276 


003502 


ERRORC 


f LTBRARY 


JENTERPOSE 


ILAZO 


1 BTl.niiTflTHFK 

9 cjA4jnjL/Av 1 nr.rv 


274 


001300 


003552 


MODIEif 


t MODIFY 


JMODIFIF 


f MODIFTOUE 


1 n * y El iv 


275 


001302 


003502 


FRPORC 




jG- 


1 Vt" 


1 tlw 

1 kJ " 


276 


0013P)4 


01 0336 


PROGTO 


1 OPERATF 


1 PRATIQUE 


f OBRAHE 


i nRb'Q ATP 


277 


001306 


003502 


ERRORC 


t P" 




|N<> 


t Ma 


278 


001310 


002014 


STARTX 


1 QUIT 


lARRETE 


IDETF^JGASE 




279 


001312 


003316 


RETURN 


1 retitrn 


IRETOURME 


iretourne 


1 QUTTTF 


280 


001314 


004222 


SET 


iSET 


lORGAKIEE 


tUBIQUE 


ISETEE 


281 


001316 


005224 


T^PE 


ITYPE 


ITAPE 


fTIPPEE 


pRECHNE 


2112 


001320 


003502 


ERROftC 


|U» 


»U» 




|P» 


283 


001322 


001502 


ERRORC 


fV« 


f W« 


pQ* 


PV« 


284 


001324 


001646 


WRITE 


IMRITE 


f INSCRIS 


fESGRlBA 


PTIPPE 


285 


001 326 


003544 


XECUTE 


1 XECUTE 


1 XECUTE 


fFLUiR 


1 XECUTE 


286 






1 OTHERS UNUSED 1 


lYE 




pYE 


tYZ 



287 

288 pTO CHANGE LANGUAGE* ALPHABEflEE ON THE APPROPRIATE COLUMN, 







620 19 


FOCGT.I 


1 
















too 






n Q 1 












n O Ik 






1 Q fk 


10 1 J 3 O 


ni £» A ) an 


n O 1 


tpsc 1 3 3 < 






W It' 1, J J H 


la 01 A o c 1 

ifli^ 4 < 3 £ 








9 /sen 


WW } 3 30 


ffltX A <3 R A 


<1 A 1 


Oiffii tA a 


»t3 33 34 




vv i 3 ft 4 


0tOl1C>A<?i 


J0 J 










OlOS 4 1 A A 


A IS 


v*> 1344 


an K A 4 fJI 


V alt 




A 1^ c A A 9 


30? 


(KOk \ ^ 

'^lo 1 35io 




A O 


£101 4 ICO 


afilB A £ A 




w w I 4 3 % 


01 4 OIC £ A 
I W 3 4 


% t m 




A rx C A 4 01 

« t? S 4 1 V 


31 I 


C^i>t4 l£.ffl 


A C A 4 0t 

^J't?^ 4 J SO 


14 9 

3l * 


WB A JO 4 


wo 3 3 34 


lis 


A 4 1 £ A 


niJX <S R A £f 


J 1 * 






« 4 fit 






BID 






31 ' 




ffl 4 1 £ £ 

1 3nO 


9 4 fi 


^^4 1 £ £ 


n /> K 4 n n 

v5wo 37 Z 


t * V. 
11 V 


wiy 1 3 / w 


r'tr'S 34*9 




0>&ii 1*1 n 
wwl 37* 


WB!> 3654 


'4 % 4 




00533» 




ftp 13 7 


m A 
wtwli 3«74 


^ Q ^ 

3 / J 






9 4 A 




VV 1 4f?W 


<i n K 

329 


Clfl 4 A/xa 




1 Oft 


IPIS 1 %YI 4 


4 s £ A 

»i939D4 


3?7 




0101 9 E A C 


3Z* 










I 4f0 








33i 


001410 


0036510 
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ILISTS TO BE TESTED BY 
j"SOPTJ" AND "SORTC" 



FLI5T2J FLIMIT p,aSTAVDARD #FOP» 

FINFIN ffsSHORT 

FINERR tCR^nUMB 

FLISTll riNCR f#a5TAWDARn FORMAT »FOR» 

TPR f >«8ETf PLUS, . .GO TO PROCESS 

TPPl fC,R,«SET COMMANO—GO TO PCI 

ATLIST«, |»ASK*TYPE» CONTROL CHARACTER TABLE 

TINTR »%bKORMAT delimiter 

TQUOT r ""LITERAL DFLIMITER 

TCRLF fiwCARRIAGF RETURN AND LINE FEED 

TCRLFS |#»CARRIAGE RETURN ONLY 

TOUMP iSpDUMP THE SYMBOL TA8LE COhfTKNTS 

TA5K4 pSP«»TERMINATOR FOR NAMES 

TASK4 I » ••TERMINATOR FOR EXPRESSIONS 

TPR If •TERMINATOR FOR COWHANDS 

TPRl »C,R>TERMI«ATOR FOR STRINGS 

tS»FOR »TOUMPl TERMINATES THE COMMAND! 

INLISTa, f INPUT DATA CONTROL CODES, 

AGO fALTMODEsLEAVE RESULT 

ASPACE |SPACE»CHECK FOR TERMIMATOR FUNCTJO^f 

ATAKE » IGNORE EQUALS SIGNS 

ARO iRUB OUT 

ATAKE I IGNORE LINE FEEDS 



SRNLSH 



SCHAR 
SCONT 
SCONL 



LlITGOs, 



SRETN 

SFOUND 



|#WODirY» C0ft?TROL CHARACTER TABLE 
iF.r.oCOJfTINUE 

IBELLPCHANGE SEARCH CHARACTER 
fL,r;«FINI5H THE LINE AS BEFORE, 



fC.R.PEND THE LINE HERE AS IS, 
»CHAR«8EARCH CHARACTER 





MACY1 I, 


620 19« 


FOCGT,002 




333 




001412 


334 


«01412 


040 


335 


001413 


053 


336 


<3il?141 4 


055 


337 


001 415 


05? 


338 


0<ai4l6 


052 


339 


001417 


136 


340 


001420 


050 


341 


001421 


133 


342 


0i<J14^2 


074 


343 


001 423 


051 


344 


001424 


135 


345 


001425 


076 


346 


001426 


054 


347 


001427 


073 


348 


001430 


015 


349 


001481 


075 


3S0 


001 432 


000 


351 






352 




001433 


351 


001433 


045 


354 


001434 


042 


155 


0014S5 


041 


356 


001436 


043 


387 


001437 


044 


358 


001440 


200 


359 






3Ae 




001441 


3«1 


001 441 


214 


362 


001442 


215 


3A3 


^501443 


216 


364 


001 444 


000 


365 






366 




001445 


367 


001 445 


175 


368 


001446 


200 


369 


001447 


217 


370 






371 




0014S0 


S72 


001 4S0 


177 


373 


001451 


012 


374 


001 452 


000 


375 






376 






377 






378 




001453 


379 




014 


380 


001454 


007 


381 


001455 


012 


382 






383 
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TEPMS8, 




f TERMINATOR TABLE FOP 'EVAL' AWD 'GETVAR* 


'.BYTK 


P40 


ISPACE 


m (ASCII CnOES) (IN-TERN'AL CODES) 


.BYTE 


053 


1 + 


1 


.BYTF 


055 


) ** 


2 


,BYTK 


?57 


f / 




,BYTF 


052 


1 ^ 


4 


.BYTE 


\ 36 


>UP ARR 


5 


.bytf: 


050 


tc 


6 L»PAPS 


.flYTE 


133 


f c 


7 


.BYTE 


074 


l< 




.BYTE 


051 


1) 


11 HsPARS 


.BYTE 


135 


\\ 


12 


. BYTE 


076 






. w I i & 


^54 


f f 


14 


'.BYTE 


073 


f } 


15 


.BYTE 


015 


iC.Ri 


16 


.BYTE 


075 


\ ^ 


17 TO END GETARG FROM ISET' 


.BYTf 


000 






ALIST*. 




|«ASK»TYPE» LIST OE CONTROLS CINTKRNAL CODES) 


.BYTE 


045 


1% 




UVTC 
g O I I E< 


042 


1 H 




.BYTE 


041 


» \ 




.BYTK 


043 


f » 




,BYTK 


044 






.BYTE 


200 


iSPACiS 








ITERMINATORS (INTERNAL CRDES) 


".BYTE 


214 


1 1 




.BYTE 


215 


M 




;8YTK 


216 


ICARRIAGE RETURN 


,8YTE 


000 


(END LIST 


SPEC1A1.». 


IFOR INPUT DATA 


'.BYTE 


175 


lALTMODt 


.BYTE 


200 


tSPACt: 




.BYTE 


217 


f ■ 






fWMlHATORS C ASCII) 


.BYTE 


177 


|RUB»OUT (R»e.) 


.BYTE 


012 


ILINE FEED tL,r,3 


'.BYTE 


000 


lENO LIST 



LIST6»', 
.BYTE 014 
.BYTE 007 
.BYTE 012 

ICONTIMUED 



l*M0t5IFY« 
|C0NTR0L»F0RM 
fCONTROL»BELL 
ILINE FEED 
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385 








396 




001456 


LIST3B, 


3fl7 
338 




216 


,BYTF 216 


3B9 






IVARIABLF STORAGE AREA 


3«>0 








391 


00UI7 




,8ytf: wl 


392 


001460 




.BYTE 000 


393 




001 461 


COMBUF*, 


394 






fCOMMAMD/lNPUT BUFFER 


39b 




0£»1S01 


.■',*80, 


396 


0016P»1 


000 


CCFLGI .BYTE 


397 






.EVEN 


398 


001602 


107654 


LSPRi 107654 


399 


001604 


003526 


PCFl riiTZER»2 




001606 


176172 


THISLKl B«, 


4«3 


(^01610 


000001 


DEBGi 1 


4^2 


0«>i612 


176166 176164 


FLARGl 0»,,0*, 


4<?i3 






4(^4 


<f01616 


176162 


BEi 0«, 


4?^5 


001620 


176160 


HORDl 0», 


406 


«01622 


1761S6 


LORDi 0«, 


4«87 








4(98 


001624 


176154 


LlNENOl 0"*, 


4?«9 


001626 


004012 


FiSWi 04«12 


410 




001631 


SWITCH*, 


411 


001630 


000120 


tiNCNTi ee; 


412 


001632 


177560 


INPEVI T-KS 


413 


001634 


177564 


CUTDEVt TPS 


414 


001616 


176142 


KINI 0», 


4t& 


001640 


000000 


WHOOMi 000 


4!6 


001642 


011450 


AXIHt !lUFBEa4-80, 


417 


001644 


011380 


BUFRl BUfBEG 


418 


001646 


011450 


STARTVI BUfBEG*80, 


419 


0016S0 


. 011330 


TOPI BUFBEG 


430 


001652 


017500 


BOTTOM 1 17500 


421 









f RETfrHI^ 



iSEARCH CHARACTtR^** 
ffciND OF LIST 



IRANDOM MUMBER LOW PART, 

fPROGRAM COUNTER FOR FOCAL ■ (START SAVE AREA3 

tLlNE POINTER FROM »rjNDLN» 

|C0^•0FF, EMABLE5 0,0 « TRACE, 

rRESULT STORAGE 

I FLOATING ACCUMULATOR 

If. A, 

IHIGH ORDER PART 
iLOfe ORDER PART 
I 

I LINE «JUMBER HEAD BY GETLN 

f OUTPUT FORMAT %8,04, 

iBNAGSW ETC, 

fiviDTH OF TTY LINE 

f POINTER TO IN, DEV STATUS 

IPOINTER TO OUT, DEV STATUS, « (END SAVE AREA) 

idNTR DONE, TTY CHARACTER) 

pPOWER FAIL/AUTOwRESTART SWITCH 

ISTQRAGE INDEX POINTER (STOPS 1ST "ERASEV"!) 

fNEXT LOCATION IN BUFFER • LAST LOCATION' USED, 

IBEGINNING OF BUFFER AREA 

I BEGINNING OF TEXT SUFFER AREA, 

lEND OF ALL CORE (REALLY A CONSTANT) 

iCOhTINUEO 
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A7% 
474 
425 
426 



427 
478 
429 
410 
411 
412 
413 
414 



5^01654 
0^51656 

0^1 674 



176122 

«<351«»3 
C*2fiS14 
047506 
216 
0017(^4 



5^47506 
i^3«461 
040503 



040503 
046054 
040455 



001704 000005 



CfVtSi m^ml flEXT DATA POTNTF'R 

000 %hlhV. ZhIHO, 

.ASCII "C;F0CAL-U,CF0CA«A«»Vt;RSIOM TDF.MTIFIFH 



,BYXE 216 
.EVEN 

fSTOP ALL I/O 
STOPi RESET 
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416 


















417 










1 STACK 


OVL'RFLOW 


HANDLER 




418 


















419 










STACKOl 


MOV 


•BEGIN, 


5P 


440 


«01712 


1 04623 








FRPOH + 201 + <?.+9, 




441 










lSTACKO+2 IS PATCHED IF 


FUNCTION 


442 


















443 


















444 










ITRAP HANDT.ER 






44S 


















446 










1 "PRINT" 


0,1#177 




447 










I TRAP 




200,2,37a 


448 










f "ERROR 


n 


201,2,377 


449 


















450 










lUSE THIS FOR PRODUCTION! 


4S1 


081714 


016667 


000002 


176054 


TRAPHI 


MOV 


2CSP) , 


ST A Tits 


452 


0<«J1722 


010566 


000002 






MOV 


R5, 


2CSP3 


453 


001726 


011605 








MOV 


9SP, 


RS 


494 


001710 


016S16 


177776 






MOV 


•»2CR5), 


9SP 


455 










lOR THE 


FOLLOWING FOR DEBUGGINGI 


456 










iTRAPHi 


MOV 


2CSP5, 


*2esp) 


457 










1 


MOV 


R5, 


2CSP) 


458 










P 


MOV 


SSP, 


R5 


459 










P 


MOV 


•»2(R5), 


@SP 


460 










P 


MOV 


«2CSP), 


STATUS 


461 


















462 










tSpB 








463 










P»CA!jL» 








464 










f«OttD RS» 






465 










|R5»0LD 


PC 






466 


001734 


106216 








ASRB 




• Sp 


467 


001736 


100167 








BPL 


PRINTA 




468 


001740 


103404 








BCS 


ERR2 




469 


001742 


106U6 








ROliB 


esp 




470 


001744 


162716 


103414 






SUB 


IJMS, 


(asp 


471 


001750 


013607 








MOV 


PCSP)+, 


PC 


472 


















473 


















474 










ICRHOR I 


DIACNOSTIC GENERATOR 


475 


















476 


0017S2 


012767 


177560 


177692 


ERR2i 


MOV 






477 


001760 


012767 


177564 


177646 




MOV 


iTPS, 


OUTDEV 


478 


001766 


011767 


177644 






MOV 


epc, 


KIM 


479 


001772 


104642 


037616 






PRINT2, 


37616 




4fl0 


001776 


042716 


177740 






BIC 


i»40, 


isp 


481 


002002 


112602 








MOVB 


tSP5+# 


PXR 


482 


002004 


004767 


005512 






JSR 


PC, 


PRNT2 


483 


002010 


104642 


040440 






PRrNT2# 


« A 




4A4 


009014 


104524 








PRINT* 


'T 




485 


002016 


016781 


177568 






MOV 




AC 


486 


002022 


016101 


000002 






MOV 


2(AC), 


AC 


487 


002026 


104626 








PRNTLN 






488 


002030 


104642 


005015 






PRINT2» 


CRLF 





I RESET STACK IMMFDl ATET Y i 
ITHEV PRODUCE DIAGNOSTIC 
1ST IS CHAVGED, 



» RESTORE STATUS 
fSAVE RS 
I GET PC 
ICOPY CALL 

fKEEP THE STATUS-QUO FOR KIVF INSTRUCTIONS 
pSAVE RS QWTO STACK OVER STATUS BITS, 
fPlCKUP THE RETURN ADDRESS, 
IGET THE CALL ITSELF OMTO THE STACK, 
JRBSTORE STATUS, T^BIT, ETC, 



PEXAMINE LOW ORDER BIT OF CALL 

pGO PRINT ASCII CODES, 

pUSE ODDS AS ERRORS 

I RESTORE WORD ADDRESS 

PCOMPUTE address OF THE POINTER, 

pGOTO THE PROCESS, 



PRE8BT DEVICE POINTERS 

I RESET KBD DATA/FLAG 

pPRlNTS AS "CR^LF"*"?" 

fCLEAR THE HIGH ORDER BITS 

fSAVE CODE NtfMBER 

lAND PRINT IT, 

I "AT » 

P«t* 

IWHAT TYPE LINE ARE WE yomXTUG Tv? 
pRETRIEVE THAT LINE ^JUMBER, 
iFRIfH' IT OUT, 

jGO BACK TO COMMAMD/TNPUT MODE, 
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491 I "START" 

492 

493 



494 


002014 


01ft706 


1 77650 




STARTXt 


HOV 


5TACK0+ 


2,SP 


1 1 NITIALI/F. THF STACK POI^wTEK 


495 


002040 


012767 


003526 


1 77536 




MOV 


»PCl+2f 


PCF 


f INITIALIZE PC FOR FOCAL 


496 


01^2046 


012767 


177400 


177534 




MOV 


i"400r 


DtRG 


lENABLF TRACF BUT TURN TX OFF 


497 


002054 


005067 


! 77360 






CLP 


WHOOPS 




fUPDAIF POWER FAIL SWITCH 


498 


0020^^0 


005067 


175712 






CLP 


STATUS 




lALLO^ INTFRRUPTS 


499 


002064 


0S2737 


000101 


177560 




BIS 


* 101 f 




fENABLK TELETyPE INTERRUPTS AwH SFT READFH 




002072 


026727 


1 77S34 


177550 




CMP 


IHnEV, 


APRS 


IDON'T ACKNOWLEDGE FOR H,S,R, 


Sdl 


002100 


001401 








BEQ 


• 






502 


002102 


104452 








PRTNT+ 






fPRINT THE "READY" CODE, 


503 


002104 


012705 


001461 






MOV 


•COMBUF 


*R5 


llNIT THE COMMAND BUFFER PROTECTTQW 


504 


002110 


010567 


177526 






MOV 


RS# 


AXIN 


pFOR PACKING AND RUBOUT LIMIT, 


505 


002114 


104606 






TGNOPt 


READC 






frtAlT FOR KEYBOARD INPUT, 


506 


002116 


120427 


000012 






CMPB 


CHAR# 


#012 


fCHECK FOR TERMINATORS 


507 


002122 


001774 








BIt:Q 


IGNOR 




1 IGNORE LINEFEED 


508 


002124 


10461 6 








PACKC 






iPACK THE rOMMANH STRl^^G 


509 


002126 


026727 


177510 


001600 




CMP 


AXTNf 


iCOMBUF4f>0|«l 


fAT FNn? 


510 


002134 


002022 








BGE 


BurruL 




1 YESI 


511 


002136 


120427 


000216 






CMPB 


CHAR* 


ICR 


iTEST FOR C,R, 


512 


002142 


001364 








BNE 


IGWOR 




|N0, REPEAT, 


513 


002144 


010S03 








MOV 


R$, 


AXOUT 


pSETUP FOR READING THE COMMANO/INpUT STRING 


514 


002146 


104614 






GONEt 


GETC 






IGET A CHARACTER 


515 


002150 


104634 








5PN0R 






1 IGNORE SPACES BEFORE LINE NUMBERS, 


516 


002182 


104654 








SKPNON 






tBE SURE THAT IT IS A NUMBER 


517 


002154 


002204 










INPUTM 




INOT A TERMINATOR* BEFORE STORING, 


518 


002156 


004767 


001272 






JSR 


PC* 


PROC 


fPROCESS IMMEDIATE COMMAND 


519 


002162 


016703 


1774U 






MOV 


PCF, 


AXOUT 


ICOMPUTE ADDRESS OF NEXT 


520 


002J66 


062303 








ADD 


(AX0UT)*,AX0OT 


thim IN SEQUENCE, 


521 


002170 


001721 








BEQ 




SfARTX 


tEND FORMAT»RETURN TO C/1 MODE, 


522 


002172 


010367 


177406 






MOV 


AXOUT* 


per 


ISAVR NEXT LINE ADDR, 


533 


002176 


022323 








CMP 


CAX0UT)*,(AX0UT5* 


IPREPARE TO INTERPRET, 


524 


002200 


000762 








BR 


50NE 




»G0 EXECUTE IT, 


52S 
526 


002202 


104625 






BUFPULI 


ERROR*201*10,+10, 


IROOM ONLY FOR IMMEDIATE COMMANDS, 
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rOCGT,0| 



S?8 



5?9 




PIU767 


177400 


INPUTfJl MOV 


lapC, 


DEBG 




00221 


104622 




GETLW 








0022! 2 






BPT< 


line:rr 




512 


0022 f 4 












533 


!ii>0221 6 


0fr'47ft7 


001404 


JSR 


PC, 


STL IK' 


554 


002222 






BR 




SRETN 


535 


002224 


U2is^4 




MOVB 


CAXOUTH.CHAR 


516 


002226 


lf'46!6 




SRi!T^'l PACKC 






517 


0i^2230 


1 22704 


00'?S21 6 


CMPB 


ICR, 


CHAK 


518 


^02234 


001373 




BNE 




SRETNw 


519 


002236 


005200 




TNC 


TEMP 




540 


002240 


042700 


000001 


BIC 


»1, 


TEMP 


541 


002244 


010067 


177372 


MOV 


TEMP, 


AXIN 


542 


002250 


020067 


177372 


CMP 


TEMP, 


STARTV 


543 


0^2254 


103401 




BLO 


,♦4 




544 


002256 


104636 




FRASEV 






545 


«02260 


000004 




DEtETE 






546 












547 








lAT THIS JUNCTURE 




548 








» (PTR3a>LASTtW 






549 








1 CAXIN)«(BUrR)*NF.W, LENGTH 


590 








1 CBUFRJs^THISLN 






551 














552 


5502262 


0102^1 




MOV 


PTR, 


AC 


553 


<802264 


061101 




ADD 


?AC, 


AC 


554 


002266 


166701 


177352 


SUB 


BUPR, 


AC 


555 


002272 


010177 


177346 


MOV 


AC, 


(iBurR 


D O 


r/v i < 7 O 


»0 Z7 1? \ 




ADD 


12, 


AC 


557 


0021««2 


160112 




SUB 


AC» 


ePTR 


558 


002304 


016767 


177332 177332 


MOV 




BUFR 


559 


002312 


000650 




BR 


5TARTX 




560 














561 


002314 


104603 




UNERRl ERROR*20l*l,*l, 





IDTSABLK AND TURM OFF THF TRACE, 

I READ THF DATA AS A LINL ^'UMBFR 

ISTNGLF !,IMF NUMBER? 

JIGMOHE SPACFS AFTER LINK fJUMBFR, 

IPREPARE PniMTER TO INSERT MK*^ TEXT Ai^n 

iSKIP TO THE TEST FOR ENO-OF- M^-^F, 

fUWPACK A CHARACTER W/O TRACE, 

ISAVE THF HlfTE C ' TEMP • STILL CONTAINS fAXX^J)) 
ITEST FOP ENH OK LINE, 
fGO BACK FOR ANOTHER, 
rROUND UP TO 
fEVEM ADDRESS, 

fC'TEMP' IS LEFT BY "PACKC") 

lANY IWTEHFERENCF WITH VARIABLE AREA? 

fCUSES »AC«) 

(REMOVE THE OLD LIME, IF ANY, fNO RHEAKSl) 



fCOMPUTE THE NEXT 

ILINE ADDRESS AS "C»2« THEM 

IFORM "C»NEW«2", 

rSAVE NEK FORWARD LIWKACE, 

I »C»MEW" 

fUPDATE OLD LINKAGE "NFWbA" 
fPOiNT TO END or LAST INSERTION, 
IRETURN TO COMMAHD/IMPUT MODE, 

t ILLEGAL LINE KUMBER, 



.MAIM, 


WACYt 1 , 


620 19* 


MAR-73 13101 


PAGE IS 






FOCGT,l 














91^3 














564 














565 














566 
ft? 








fUR£ LOW BITS AS ASCI 


1 CODES, 




i%A8 

jKi ^ 


0023 1 6 


! 06 1 1 6 








1 RESTORE CODES, 


*)69 




1 1(^4^6 




MOVB CHAR* 


1 CtSP) 


ILEAVE OLD "CHAR" IM IHK STACK FOR 


570 


<i»02324 


1 1 ) 604 




MOVB f*dP# 


CHAH 


fCOLDi NEW) 


571 


002326 


00(^31 6 




SWAB laiSP 




fCNEW, OLD) 


572 


002330 


00<^167 


000456 


JMP 0UT2 




fPRIMT IT, 


573 














574 














575 














576 








1 "TESTC" 






•577 














57B 








ICALLING SEQUENCEl 






57? 

%j / ^ 








fTESTC iCALL WITH CCHAR)«TtST DATA 




580 








itaddr I "terminator 






5Al 








pNAODR fKNUMBFR 






SS2 








iFPADDR iTUWCTION 






KAY 

D J 








1 1 RETURNS IF " 


ALPHA 




5R4 














P 1^ 


002334 


004567 


000566 


TESTXJ JSR RS» 


SPNORX 


pTEST FOR SPACE AND IGNORE, 


3 o 


002340 


10041 2 






TEX 


fMUST BE TERMINATOR 




002342 


005725 




T5T 


fR5} + 


P PREPARE SECOND RETURN 


•(BR 

J 


002344 


1 04654 


002366 


SKPNON* TEX 




lIF NUMBER#TAKE EXIT 


3 n ? 




1 597W4 

J. & f V' 


000056 


CMPB »056f 


CHAR 


pOP A POINT? 




0023^4 


001 404 




BEO TEX 




p5CES# USE "NADDR," 




002356 


005725 




T5T 


CR5)* 


P PREPARE FOR 3RD RETURN 


n T * 


0023A0 


1 22704 


000106 


CMPB l«F, 


CHAR 


pTEST FOR FUNCTION DESIGNATION 


593 


002364 


00101s 




BNE 


SOX 


pRETURNf MUST BE "ALPHA 


594 


002366 


0} 1505 




TEXI MOV iR8# 


RS 


|60 BACK VIA POINTER 


ij 7 


002370 


000205 




RTS 


RS 


ilN ARGUMENT LX8T, 


596 














597 














598 








f "SKPNON^JfESpADDR" 






599 














ftCI0 








ISKIP IF NOT h irUMSER 






D * 














602 


002372 


120427 


000060 


8KPN0XI CMPB CHftRi 


• 060 


pTEST 


Afl3 


002)76 


00241 




BLT SOX 




pTOO SMALL 


604 


002400 


120427 


000072 


CMPB CHARf 


1072 


pTEST 9 




002404 


000521 




BR 6R0\^Z 




1 NUMBER, USE YESnADDRESS 


i(fl6 














607 






















;eot 














|«50RTJ» 




















611 








ICHARACTER TEST AND BRANCH ROUTINES 












fSORTJ, liISTCHAR, liISTADDR, RETlTHN«IF*NnT«THIi:RE 


613 
614 


002406 


012501 




50RTBI MOV CR53+ 


f AC 


fPICKUP THE LIST POINTER AND 


615 


002410 


120411 




CMPB CHAR, 




pTEST WITH LIST CONTEMTS, 


616 




001404 




EEa 


BOlihu 


i MATCH r OUnD J 



ImAXW, /' Yll'.620 13101 PAGE 15»1 

FOCGT.el 



61? 


002414 


105721 




TSTB 




f AC ) ♦ 


fTEST fOR END OF LIST OR 


618 


«5«2416 


001 374 




BNE 




SORTB+2 


! REPEAT IK MOT AT KND 


619 




00S725 


SOXI 


TST 




f R^ )♦ 


1 RETURN It-" NO MATCH FOUNH (SKIP OVFH 


6?e 


0452422 


0«P)205 




RT5 


R5 




fCiO RACK VIA R5, 


621 














J 


622 


009424 


1 665(^1 !77?7ft 




SUB 


*2(R5) , 


AC 


fCOMPUTK THE INDRX FTRST THEM 


6?3 


002430 


006 3f? I 




ASl. 


AC 




fMAKE EVE--! AWD 


6?4 


002432 


061501 




ADD 


#R5# 


AC 


jGc-T TABLE OF AuDREoStS ANr) FIMALijY 




002434 


105 




MOV 




R5 


f SETUP ADORESS FOR PC t 


626 


002436 


000205 




RTS 




R5 


iGO BACK VIA NEw R5, 


6?7 
















6?8 
















629 
















610 






1 "SORTC 










631 
















632 






fSORTC, 


LISTCHAR 


, YESADDR 


#RETURN«IF«»K'OT 


"THERE 


633 
















634 


002440 


012501 


SORTDI 


MOV 




AC 


iGET LIST ADDRESS 


635 


002442 


121104 




CMPB 




CMAR 


fCOMPARE WITH CONTENTS 


656 


002444 


00t7'50 




BEO 




TEX 


rFOUND IT, 


637 


002446 


105721 




TSTB 






fTEST VEXT FOR END 


63S 


002450 


001374 




BNE 




80RTD*2 


f REPEAT 


639 


0024S2 


000762 




BR 




SOX 


fEXlT tr NOT THERE 


640 
















641 
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643 
644 

645 

646 

647 

648 

649 

650 

651 

692 

6f53 

6«>4 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 



I "GETLN" 

fLTNP NUMBFR- FORMATION RnUTlME 



002454 

003460 
002462 
002464 
002466 
002472 
002474 
002500 
002502 
002506 
002510 
002512 
002520 
002522 
00^526 
002530 
002532 
0025S4 
002536 
002542 
002544 
002552 

002554 
002560 



002562 
002S64 



105067 


177151 




GETLNX 1 


CLPB 






008001 








CLP 




AC 


104634 














100416 








BMI 


CAT.Ll 




1 22704 


000101 






CMPB 


» IA» 


V. n H i> 


00141 3 










GALLI 




104654 


002562 






SKPNON, 


GXESTN 




010346 








MOV 






004767 


002166 






JSP 


PC, 




007001 








FPGET+IPTR 




012605 








MOV 


CSP)+, 




062767 


000010 


177076 


GTrSTWl 


ADD 


«8,, 




007071 








FPINf 




010167 


177076 




GALL! t 


MOV 


ACi 


« * w 


001412 








REO 




GALL 


100671 








BMI 






105701 








TST8 




AC 


00141 1 








BEQ 






105767 


17706J 






TSTB 




TilKtNO^l 


001664 








BEO 


LINERR 




152767 


000200 


177057 




BISB 


HONE, 


SWITCH 


000205 








PTS 


R5 


105367 


177051 




GALLI 


INrB 




SWITCH 


00020S 






CGROUPl 


PTS 




Its 


007075 






GTESTNl 


FREAD 






000752 








BP 


GTESTW 





fSKT rn Tf:RMTrJATF: upn^ alpha 

iCODFa CEiMTHY POINT «1) 
IFOR "ALL" USE iERO, 
I IGNORE LEADING SPACES 
f TFRM|NATORe0a"ALL" 
fTEST FOR "ALL 

IGO SET SWITCH A»^D REXURM OK 

fSOUNDS LIKE A VARIABLE NA^'^E? 

ISAVF RETURN 

IREAD A NAMED LIME 

fPICKUP THE VALUE, 

IRESTORE RETURN 

IMOVF "POINT'RIGHT B BITS fE^TRY PDIMX #?) 
IFIX 

ISAVE THE ANSWER IN "AC" AWp "IIMtNO" 

fZERO, CALL IT THE SAME AS "ALL" 

^PREVENT USE OF BIT 15 

I TEST THE STEP-'MO, 

fMUST BE A GROUP, 

I TEST THE GROUP»NO 

fMUST BE VON-fZERO 

lINDICAXF A SINGLE LINE 

fPETURM 

t 

fSET BIT #0 FOR "ALL", 

IRETURN TO PROCESS WITH STATUS BITS SETUP, 
ILINE MOS, >99,99 ARE NOT ERROR CHECKED, 
f 

pSET TO READ A NUMBER INTERNALLY, 
fGO PROCESS THE RESULT 
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6?9 

680 

681 

682 

6fl3 

6fl4 

68b 

6fl6 

687 

6R8 

689 

690 

691 

692 

693 

694 

695 

696 

697 

69a 

699 

7«0 

701 

702 

7«!3 

704 

705 

im 

7(»7 
7«!8 
709 
710 
7!1 
712 
713 



002566 
002572 
002574 

Wsm 

0026<^6 
002610 
002612 
002614 
0026)6 
002620 
002622 
002624 



012703 
010302 
010367 
026367 
101267 
001404 
010302 
062303 
001663 
00076S 
022323 
000675 



001654 

177006 
000002 



177016 



I "FiNDliN" 

I THIS ROUTINE liOOKS UP THE LTNR WHOSF MfJMBFR 
t MATCHES THE CONTENTS OF "LiMEMO" 

fCALLiNG SEQUENCFl FINOLN, ?JOTADDR, RKTURN-IF-FOUND 

IRFSULTS IF F0UNDl"THI5LN»»FOUWD LINE OR MEXT LARCiFRi 
f»PXR« IS THE LAST LINE, I .E'.PRECEEDIMG OR SAME him, 
|"AX0UT«IS SET FOR USE BY «aETC", 

iRFStlLTS IF<iI#OT»FOUND| »THISl,N ""ADDRESS OF NEXT IM LINE 
> »AXOUT»aNEXT OR ZERO 

I "PTR»»«PRIOR LINE 



FINDXI MOV 
MOV 

Fl^iDHI MOV 
CMP 
BHI 
BEQ 
MOV 
ADD 
BEQ 
BR 

FlMOOl CMP 
BR 



#CFR5, AXOUT 
AXOUT, PTR 
AXOUT, THISlN 
2CAXOUT3|LINENO 
TEX 

FIMDO 

AXOUT, PTR 
(AX0UT5+,AX0UT 
TEX 
FlNDN 
(AXOUT)*, CAXOUf )+ 
SOX 



fiiOAn STARTING ADDRESS OF TEXT 

lINIT FOLLOWING POINTER 

I SAVE CURRENT POINTER 

I TEST FOR MATCH 

fPAST ITlaNOT FOUND 

IRIGHT ONI 

iCOPy PRIOR POINTER, 
IGCT NEW POINTER 
lEND OF LIST»HOT FOUND 
ITRY THE NEXT ONE, 
fMAKE IT POIWT TO TEXT 
I RETURN TO SEQUENCE 



IDATA STRUCTURE OF LINESi 



I WORD #1 t NEXT»,w2 

IWORD »3 I LIME# 

I WORDS ISwNl 7.B1T ASCII AND SPECIAL INTERNAL' TEXT CODES 

ILAST BYTE | 216 iCARRlAGE RETURN 



ILAST IS 0«,«2 
P GROUP, STEP 
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7l!s 
7!6 
717 
718 
719 
75>0 
731 
722 
723 
714 
725 
726 
727 
728 
729 
7S0 
711 
7S2 
733 
714 
755 
716 
757 
758 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
793 
754 
758 
756 
717 
758 
759 
760 



002626 
002630 
002632 
002654 



002636 
002642 
002644 
002650 
002652 



002672 
002700 
002702 
002704 
002706 



ll2Sf?4 
104604 
U25P4 
000462 



120427 
101251 
120427 
105646 
000662 



000210 



000206 



I »'PBINT2,APGARG" 

PRIN2AI WOVB CR5)+» CHAR 
PRINTC 

MOVB eR55+# CHflH 

BR OUT 



|«SKPLI»R,NOT«»AnDR« 

IBRANCH TF LPFT^PARENS, NOT FOUND. 



XTSTLPI CMPB CHAR. 

BHl TEX 

CMPB CHAR# 

GROVZI BLO TEX 

PR SOX 



l^niGTSTiFlELD" 



I2lld 
»206 



002654 


012704 000060 


DIGTSAl MOV 


»60> 


CHAR 


003660 


020215 


CMP 


PTR# 


«R8 


002662 


002656 


BLT 




SOX 


002664 


161502 


SUB 


9R5r 


PTR 


002666 


005204 


INC 




CHAR 


002670 


000773 


BR 




DlGfSA*4 



I "GROOVY, NOT«ADOR«» 



126763 
001232 
005703 
0016S0 
000644 



176727 f0§003 GROVXI 



BNR fEX 

TST AXOOT 

BEQ TCX 

BR SOX 



ICOPY FIRST TRAILING BYTE 
|AND PRINT 

fCnPY 5KC0MD TRAILING PYTF. 
lAND GO PRINT IT 



fTFST FOR f<t, 

f RIGHT TERMINATOR! • YES» USE "^^OT-ADDR" , 
pOUT OF RANGE? 
lYES, USE "NOT^-ADDR" 
I OK, SKIP ONWARDS, 



lINITIAliIEE CHARACTER 
ITEST FOR POSSIBILITY 
IliEAVE IF NO MORE POSSIBLE 
I MAKE CHANGE AND 
fCOUNT 
f REPEAT 



ffSST FOR SAME GROUP 

fGO BRANCH OR 

I CHUCK FOR END OF TEXT 

ITAKE NOT-ADDR 

I JUST RETURN 



.MAIN, 
FOGGT 



•A 
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7fi2 








763 








764 








765 








766 








767 


0027 


10.-612 




768 


00271 2 


0457«4 


177600 


769 


002716 


001774 




770 


002720 


02?7?!4 


000003 


771 


0»2724 


5^01462 




772 


002726 


104602 


001450 


773 


002734 


120427 


000141 


774 


002740 


002402 




775 


002742 


042704 


000040 


776 


002746 


104602 


001412 


777 


002754 


000403 




778 








779 


0027S6 


062701 


176566 


780 


002762 


U0104 




791 


002764 


022705 


003566 


782 


002770 


001511 




783 


002772 


026727 


176614 


784 


003000 


001505 




78S 


003002 


5 10446 




786 


003004 


100002 




787 


003006 


116404 


001612 


788 


003012 


152704 


000200 


789 


003016 


104610 




790 


003020 


122704 


00021S 


7Q1 


003024 


001006 




792 


003026 


112767 


000111 


793 


003034 


121604 




794 


003036 


103401 




795 


003040 


104412 




796 


003042 


02672? 


176566 


797 


003050 


001005 




798 


0030S2 


105367 


176552 


799 


00S056 


001002 




800 


003060 


104642 


005013 


801 


003064 


112604 




802 


005066 


00020S 




803 








804 








805 








806 


003070 


104636 




807 


003072 


016706 


176612 


808 


003076 


104601 





f"READC" AND "PRINTC" 
I I/O CO^JTROLS 
CHlHt 



003214 



002756 



177S50 



176S74 



EMIT2I 
IMIT2t 



INCH 




BIC 


#'«-200i CHAR 


B£0 


CHIN 


CMP 


#3, CHAR 


BEO 


mm 


SORTC# 


ECH0LST#RUBX2 


CMPB 


CHAR, #141 


BLT 


.♦6 


RIC 


#40»CHAR 


SOIJTC, 


TERMS, CHINX 


BR 


aUTW 



CHIMXI 


ADD 


«200»TERM3,AC 




MOVB 


AC, 


CHAR 


OUTWi 


CMP 


fSCONli, 


R5 




B£Q 


RUBX2 






CMP 


INDEV, 


»PRS 




BEQ 


RUBX2 




OUT! 


MOVB 


CHAR, 


«(SP5 




BPL 


OUTE 






MOVB 


TERMS*200(CWAR3 ,CHAR 


OUTZt 


BISB 


#200, 


CHAR 




OUTCH 








CMPB 


#215, 


CHAR 




BNE 


DUTY 






MOVB 


#73,, 






CMPB 


§SP, 


CHAR 




hhO 


outy 






PRINT+012 




OUTYi 


CMP 


OUTSiV, 


#TPS 




BNr 


OUfX 






DECB 








BNE 


OUTX 








CRtr 




MOVB 




CHAR 






RS 





ItRASEV 
MOV 



STACK04>2,SP 



(ERASE 



ERPOR+2014-0,^0, 



JHEADC a I?^PUT 

fCLEAH HIGH ORDfR BITS 

flf^NORE MULLS 

ICONTHOL^C? 

»5fES«RESTART 

fTEST FOR N'0«»ECHO 

MilF SMALL LETTER INPLfT, 

f »ti 

r«»#MAKE IT UPPER CASE, 
ICOMVERSION TEST, 
I GO ECHO 
I 

?rORM INTERNAL CODE 
fA'^0 SAVE TT 
? DON'T 

rECHa SEARCH CHARACTER FROM #MODTFY*, 
tDON »T 

lECHO FOR H,S,R, 

fSAVK THIS FORM ON THE STACK, 

liF SPECIAL TERM,, REGENERATE BY 

fCOMPUTiNG ASCII 

ISET SITS. 

lOUTPUT TO ANY DEVICE, 

I (CHANGED BY » DUTCH » ) 

f JUST GO COUNT IT, 

INITIALIZE THE LINK COUNT, 

IWAS THIS AM INTERNAL CR? 

I IF «IOT, JUST GO COUNT, 

I ISSUE THAT EXTRA LINEFEED, 

I TEST FOR TTY OUTPUT, 

»IF MOT, DON'T EDITORIALIIE, 

ICOUST PRINT POSITIONS 

fSKIP IF NOT NEAR THE MARGINS 

I OUTPUT OMf or EACH 

tRESTORE 0R15ISAL DATA 

f RETURN FROM TRAP 



BUFFER ON INIT 
f RESET STACK FOH MANUAL RESTART 
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302 












810 




























812 








|"PRNTLN" 






813 














814 








fPRIMT A LI?'E 


NUMBER ROUTINE 




8!b 














8! 6 


003100 


fll27fi2 


002005 


XPRNTLl MOV 


12005, OTR 


fSET KORHAT TO %4,02 


817 


«03104 


010146 




MOV 


AC# •CSPl 


» ARGUMENT TAKEN FHOM "AC" 


818 


003l<»6 


012746 


177407 


WOV 


•177407, «(SPi 


f 


819 


003112 


007003 




FPGKT+FROM+STACK 


ILOAD FLAC 


85!0 


003114 


007076 




FPPINT 




IPRINT RESULT 


B7i 


003116 


022626 




CLOSF+STACK 


f REPAIR HOLE IV THE STACK, 


8?2 


001120 


1C^4440 




PRINT* 


• 1 


IPRINT TRAILING SPACE 


853 


003122 


000205 




FTS 


RS 


IRETURN 


894 














825 














8?6 














857 














898 








rwSPNOR" 






829 














850 








f IGNORE SPACES 






811 














832 


00S124 


104614 




SPNXTI GETC 




fMOVE ON TO NEXT CHARACTER CODEi 


833 


003126 


122704 


000200 


SPNORXi CMPB 


I200#CHAR 


fCHECK FOR SPACE SYMBOL, 


834 


003132 


001774 






.'6 


fTRY AGAIN, 


835 


003134 


000427 




BR 


RUBX2 


ILEAVE "CHAR" IN "STATUS* AN'D EXIT, 
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837 
















fl ^8 








; "PACKC 








R 19 
















8 4ti 








JTFXT BUFFFR rn»iTunT.K 




841 
















842 


003 13 


6 ^1670 


1 76500 


PACKXl 


MOV 






843 


00314 


2 1221 ^ 


4 000177 




CMPB 


#177» 


Tf-MP 


844 


00314 


6 00141 


4 




BEQ 




CHAK 


845 


003151 




4 000100 




CWpB 


#100* 


PUBiT 


846 


00315' 


4 00141 


5 




BtO 


RUBX 


CHAR 


847 


001151 


12270< 


4 000137 




CMPB 


»137f 




848 


00316: 


2 00140! 


5 




PEO 


PBAR 


CHAR 


849 


00316-1 


1 11042J 






MOVB 


CKAR, 


# !Tf fPi ft£ % . 


850 


00316< 


» 02670S 


5 176460 




CMP 


BOTTOM, 


t TEMP 3 + 
TEMP 


85J 


003173 


I 10100* 






RHT 






9S2 


00317-^ 


t 104625 






f PRORATA 1 AlO! . J.4 fJI 


853 














9 


854 


003176 


1 01l60fi 


! 


PBAHt 


MOV 


9SP, 




85S 


003200 


' 020016 




RUBITI 


CMP 


TEMP, 


TEMP 


856 


f0S202 


001402 






BEQ 




?SP 


857 


003204 


005300 


1 




DEC 




RUBX 


858 


<303206 


104534 






PRINT* 


•S 


TEMP 


8S9 


003210 


010067 


176426 


RUBXi 


POV 


TEMP, 




8i0 


003214 


110404 




^UBX2I 


M0V6 


CHAR, ( 


AXIN 


861 


003216 


000205 






PTS 


R5 


:har 


862 
















863 
















864 
















865 
















866 
















867 
















868 
















86^ 
870 
























» UNPACK i 


\ CHARAfTi^B aun t 




871 














CAVE m 


872 

At "a 


003220 


105767 


176364 


UTXI ' 


P$TB 






873 


003224 


001373 




1 




D 
R 




874 

a n c 


003226 

/I /X ^ ^ ^ _ 


105167 


176387 


e 


roMfi 




0BX2 


875 


w»3232 


112304 




SETXi 1 


«OVB 




876 


003234 


122704 


000077 


C 


rMPB 1 


CI 


HAH 


877 


2*03240 


001767 




E 


I KG 


U' 


rx 


878 


003242 


005767 


176342 


7 


•ST 






879 


003246 


001362 




P 




Dl 




880 


003250 


000654 




R 


R 


R1 

01 


ljBX2 
JT 



fCOPY TWPUT TKXT POIMTEH 

fTEST FOR RU80UT 

fGO RACK UP nm SPACE 

ITEST FOR AT SIGN 

flGNOHE IT 

I LEFT ARROW 

IGO RESET, 

ISAVE CHARACTER CODE AMD MOVE POlklvVi 
ITE5T FOR E?«D HUJMbR, 

fCONTI'^UE 
IC.F, INPUTI 
I 

fRESET INPUT POIK'TER, 

ITEST FOR MUtL LINECOLD R5 IS "PACKST-5 

IIGKORE R.O. CODE COMPLETELY 

iBACKLfP ONE PLACE 

»AND ACKNOWLEDGE RECEIPT ♦ USE 

iSAVE POIMTER ' 

fSET CONDITION CODES BEFORE LEAVING 

IRETLIRN TO MAINLINE ROUTINES, 



'STATUS' 

I TEST FOR TRACE ENABLED 

fRETURv IF NOT ENABLED, 

IFLIP THE TRACE FLO? 

fPICK OUT NEXT BYTE 

fCHECK FOR TRACE FLIP»FL0P CODE 

fGQ FLIP IT IF CODE FOUND PLUS KWablFD 

fTEST FOR BOTH DEB6*DMPS80, 

INOT m TRACE NOW, 

fGO PLAY-BftCK THE BYTE, 



',MATW, MACY11,620 19»MAR»73 PAGE 22 

FOCGT,002 



8fl2 






883 






8R4 






8R5 
























8B9 






890 






R9i 




012324 


B92 


003254 


020367 


893 


0032A0 


101774 


894 


003262 


160067 


695 


0i)3266 


160067 


896 






897 


003272 


104624 


898 


003276 


1 1 2304 


899 


003300 


1 20427 


900 


003304 


001 374 


901 


003306 


005203 


902 


00331 


042703 


903 


003314 


016704 


904 


003320 


061412 


905 


003322 


062712 


906 


003326 


010300 


907 


003330 


160400 


908 


003332 


012701 


909 


003336 


010102 


910 


003340 


001 744 


91 1 


003342 


062101 


912 


003344 


020203 


913 


003346 


103404 


914 


003350 


020103 


915 


003352 


103371 


916 


003354 


060012 


917 


003356 


000767 


918 






919 


003360 


020103 


920 


003362 


103765 


991 


003364 


160012 


922 


003366 


000763 


933 






9?4 






92B 






9?$ 






927 






928 






95?9 







176366 

176356 
176350 

006034 

000216 



000001 
176266 

000002 



001654 



! A t;INF; AND 

jGAKRAGP: COLT.ECTIO" is iJO^K tip to rSTA^TV)! 
ICBUFR) TS CORRFlCTEnt 

fCTEMP) TS AMOUNT OF CnnP! rOLLFCThiD, 



ECOLOGY I MOV 

CMP 
RL05 
SUP 
SUB 



XD3i 



CAXOUT)*, (CHAR)+ 
AXOUT, STAftTV 

ECOLOGY 
TEMP, BUFR 
TEMP, AXTN 



XDOXl 



FINDLN, 


PWROW 




MOVB 


( AXOUf H,CHAR 


V r D 




are 

# V rv 






XD3 


J t» c 




AXOUT 


BIC 


tl, 


AXOUT 


MOV 


THISLN, 


CHAB 


ADD 


PCHAR, 


fiPTR 


ADD 


12, 


*PTK 


MOV 


AXOUT, 


TEMH 


SUB 


CHAR, 


TEMP 


WOV 


«CFHS, 


AC 


**0V 


AC, 


PTR 


BEO 


ECOLOGY 




ADD 


(AC)*, 


AC 


CMP 


PTR, 


AXOUT 


BliO 




XPTMI5 


CUP 


AC, 


AXOUT 


BHIS 




XDOX 


ADD 


TEMP, 


PPTR 


BR 




XDOX 


CMP 


AC, 


AXOUT 






XDOX 


SUB 


TEMP, 


IIPTH 


BR 




XDOX 


HEREwTHEREaCHANGE HERE 


A 


A 





P 


B 





A 


B 


•T 


B 


A 


+T 



STFP l-rOLLFCT SPACF 
TEST FOR CO^PT.KTIf^N 
CONTINUE U^'TIT, FlfJlSHFO, 
UPDATF Km OF TFXT POT^iTtR, 
» • • 

K«« NO lN'Tfc:RRRUPTS I 

SETUP LIME POINTERS FOR EXIT 

READ THROUGH THE T.JNt 

CARRIAGE RETURN MARKS EK'D 

REPEAT UMTII. RFACHEO, 

ROUMU OUT THE POIMTEH 

TO AN EVEN NUMBER , 

COPY POTMTER TO THIS M^E, 

STEP KREATE NEW RELATIVE 

POINTER TO NEXT LINE IN LIST, 

COMPUTE DELTA POSITION 

AS A POSITIVE, EVEN NO, OF BYTES. 

BEGIN AT TOP TO GARBAGE COLLECT, 

STEP 2«F0LL0W + UPDATE LINKS ("THIS") 

GO COLLECT ALL 

TEST FOR LAST OF KIND, 

TEST FOR ABOVE OR BELOW CHANGE ANO 

BRANCH TO riXUP THIS ONE IF IT IS ABOVE 

TEST FOR NEXT»IS«.BELOW AND 

BRANCH TO NEXT ONE IF ALSO BELOW 

ADD THE CHANGE AND 

GO LOOK AT NEXT ITEM. 

IS NEXT ONE ABOVE THE CHANGE ALSO? 
YES, CONTINUE, 

NCCHANGF "LINE", 
GO TO MEXT LIME 
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931 
















932 
















933 
















934 
















935 








fCOhJDiTlONAL TRANSFER PHOCF&S 


936 
















937 








ITHE FLAVORS OF 


»IF» 




938 








>IF ft:xt»)»,e,+ 


C3»WA!f] 




939 








f 


•#0| 1 1 


, E2»WAY 




940 








f 





f2»WAY 


OR MEXT 


941 








f 


" 1 • . • 


C1»WAY 


OP , ; , 1 


942 








t 


« 


tl«»*Ai 


OR wi-;xT 


943 
















944 


003370 


1046S4 




LOST! 


GETC 






94S> 


003372 


000410 






BR 


L0SF2 




946 
















947 
















948 
















949 


003374 


104634 




IFl 


SPNOR 






950 


003376 


010446 






MOV 


CHARf 


-tSP3 


951 


003400 


104660 






EVAL.X 






952 


001402 


104646 






PARTST 






953 


003404 


005767 


176210 




T3T 


HORD 




954 


003410 


100412 






BMI 


GOTO 




955 


003412 


001405 






BEQ 


LOSEl 




956 


003414 


120427 


000214 


IiOSK2l 


CMPB 


CHAR# 


*2I4 


957 


003420 


103763 






BL5 


LOST 




958 


003422 


101014 




LOSE0I 


BHI 


PROC 




959 


003424 


104614 






GETC 






960 


003426 


120427 


000214 


LOSEl f 


CMPB 


CHAR» 


• 214 


961 


003432 


001373 






BNE 


LOSe0 




9S2 


003434 


104614 






GETC 






963 
















964 










THROUGH INTO »GOTO* 


965 

















JGOTO TiPAR (ENTRY POINT) 
fSAVE Ll>AH FOR "PARTS!" , 

t EVALUATE THF EXPRESSION i^tlTH PARE«XHKSES 

ICHKCK CLOSING PARENS AND DO 'GETC, 

ITEST SIGN 

fRKAD5f FOR w 

fSKIP LIME NUMBERCS) 

I TEST FOR END OF LINE NO 

pNOT YET 

fSEMI, OR C,R, COR sj) 
fCOMMA 11 
tLOOK FOR COMMA 
»G0 TEST OTHERS 
I SKIP THE COMMA 



.MAIM, 


^ A c y 1 1 1 


67^ 19" 


M A R w7 3 


rarer ^ 








9S7 








9fi8 








9fi9 








970 








971 








972 


003416 


104622 




973 


0^33440 


104624 


003624 


974 


001444 


0l67fi7 


176136 


975 


003452 


104614 




97fi 


0034R4 


1 20427 


000216 


977 


003460 


001421 




978 


003462 


1 10401 




979 


003464 


100772 




9R0 


003466 


122704 


000101 


9^1 


003472 


003003 




9R2 


003474 


122704 


000130 


9fla 


003500 


002001 




984 


003502 


104611 




9l?b 


003504 


104614 




986 


003506 


100376 




987 


003510 


006301 




988 


003512 


000171 


001046 


989 








990 


003916 


012767 


003526 


991 


00S524 


000207 




992 


00SS26 


174250 




993 


003330 


000000 




994 


003532 


000000 




995 








996 


003534 


005726 




997 


003536 


000745 




998 








999 


00!I540 


005726 




1000 


00SS42 


000207 




1001 








1002 


003S44 


004767 


000790 


1003 


003550 


000741 





176132 



f *Gn«GnTn»roMMEN!T»ro'>iTiN7't;»Ki!:rnH^?«xi::c 

»PRIMARY Cf^NTBOL AWL) TRAMSFtR 



GOTQl 


r.ETLW 










StRR 




PSCAMI 


MOV 


THISLN, 


PCK 


PROCESSIGETC 






PROCf 


rMPB 


CHAR, 


ICR 




REG 




PCI 




MOVB 


CHARi 


AC 




RMI 


PROCESS 






CMPB 


» »A» 


CHAH 




BGT 


ERROHC 






CMPB 


1 *Xf 


CHAR 




BGf!: 


PC 2 




ERRORCl 


FRROR+201+4,+4, 




PC2I 


GETC 








PPL 


PC 2 






A5L 


AC 






JMP BCOMLST-202CAC) 


RETURN 1 


wov 


»PC1*2# 


PCF 


PC 11 


POPJ 








»t"2 






FliTZFlRl 


00000 








00000 






TPRI 


TST 


esp)* 





TPRI I 



BR 

TST 
POPJ 



XECOTEl jsn 
BR 



PC, 

PROC 



PROCESS 

esp)* 

EVAL 



KFAD THF ADHRESS A.nH 

ATTACH TO NK,-»' LT.^K, 

SFT m LINF POINTER 

RFAD A CHARACTfcR TAi LTNF 

TEST FOR Ewn OF LTNiF 

GO-'ON tr\ PROCESS MfcXT Mf^F 

COPY OATA 

IGMORF TtP^^TNATHHS 

CHtCK DATA 

TOO LOW, 

TOO HIGH? 

OK 

ILLFGAL COMMAND CODE, 
IGNORE RfciST OF THF CO'^MAMO'S 
CHARACTFRS '-'-JTIT.L TERWIVATOR REACHED, 
MAKF BYTE COUNT IMTO WORD COUNT, 
BRAMCH TO THE COMMAND PROCESS, 

RETURN FROM SUBROUTINE (?) 

EXIT FROM LINE 

DUMMY TERMINATOR 

DUMMY LIME NUMBER ZERO 

AND DUMMY VALUE OF FLOATING ZER^i, 

DUMP RETURN FOR 'TASK' UPf^N SEMTCOLONS, 
GO END REST OF COMMAND LINE, 

DUMP RETURN UPON C,R, 
GO EXIT FROM A LIME, 

RUN THROUGH SOME FUNCTION CALTiS, 
THEN GO GET NEXT COMMAND, 
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1 0<«5 








1 P!P!6 








10^7 








1008 








1 0S!9 








1 {^1 f? 




104622 




101 1 


003554 


104674 


00'?624 


1?I12 


003560 


034767 


000042 


1013 


003564 


104606 




1PS14 


003566 


1 10467 


175665 


1015 


0!33572 


U2304 




1016 


003574 


104604 




1(^17 


003576 


104600 


001456 


1018 


003604 


104616 




1019 


003606 


000771 




lPf?0 








1P)21 


003610 


104606 






0«(J3612 


5 0460ia 


001453 


10?3 


003620 


104616 




10?4 


0J33622 


000772 




1 0?S 








10?6 


003624 


104613 




1027 








1028 








1029 








1030 








1031 








1052 








1033 








1034 


003626 


016705 


176012 


103S 


003632 


005025 




1016 


003634 


010125 




!0S7 


003636 


001772 




1038 


003640 


010S67 


175776 


1039 


003644 


000207 





»*MOnlFY# 

fSFARCH FOR CHARACTER In TFXT 



PC, 



FINDLN, SPJRR 
JSR 

SCONTr RtADC 
SCONLt MOVB 
SCHARJ MOVB 

PKINTC 

SORT J, 

PACKC 

BR 



CHAR, LIST3+} 
(AXOUT)+,CHAR 



MST3,HSTf;0 
SCHAR 



SFTNDI READC 

SORTJ, I.IST6,SRNLSI 
SFOUNDl PACKC 

BR SFIND 

SERRi ERROF*201+5,*5, 



f START-UPwA^LlNE SUBROUTTNE 



STtlNI MOV 


BUFR, 


R5 


CtR 




tR5)* 


MOV 


AC, 


fR5)* 


BCQ 


SERR 




MOV 


R5, 


AXIN 


RTS 


PC 





fRFAD COMMAND AKGUME^il 
JLOOKUP THE INPUT DATA 

IREAD SEARCH CHARACTER SILENTLY, 

jSAVF 5EAHCH CHARACTEH 

fUMPACK AHD PRINTOUT 

f EXTRA onrPUT FOR C,R, 

ITEST FOR C,R, OP v«5FAHCH CHARACTER 

fSAVE OLD CHARACTER, 

T REPEAT 

1 

lARSORB A^fD ANALYSE 
ITHE iwPUr TFXT 
fPACK NEW CHaRACTER 
I REPEAT 
I 

INOMEXTSTANT LINE OH LT^'E ZERO 



ICOMPUTE START OF NEW LINE 

I ZERO LIST LINK AND 

fSAVE LINE MUMBER 

fFLAG "M 0« ERROR IMMEDIATELY, 

t SETUP IWPUT POIMTFR 
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r f 


S02 






























I V7 9 






























ivi'm 








• rtllTDlIT 

5 U 11 1 " U 1 


r n M M a w n 


TEXT 




1 OlAS 
















I !fl»tv 


V 3 \} *r U 


I r! 't \J f A 




ii! 1} T T IT t 


M Ci ! U 1 








*■ J O K/ 


01 04il^ 






MOV 


CHAR, 




1 0lAfl 


K' J O ^ 41 


1 ^df^ 






™ W V 


AXOUT, 




< AAQ 

1 ir'<*T' 




1 0dA9d 

^ ICf *# w ^ *f 


30371 3 


M O T 'f tr 7 » 


IP T f ! P T N . 


WTESTG 






1.' .5 o n *J 




1 f / f / D 




" u * 


«2(AX0lfT),AC 


1 1 


r' ■/ ^ Q n ■* 


001 dfl 1 












4 a C 'J 


v v J o n o 


1 04A9A 

4 n t D 4 w 






DRWTT M 

K r\ ~ 1 ti ' * 










1 1 9104 




UO T TBT. > 


MOVR 

" Vi* V o 


( AXOUT T 4 


. CHAR 












PRINTC 






1 035 


fit* / *| 




0009 1 A 




I. rl r D 


»CR» 


CHAH 


1 w8D 




001 17:1 






n Cj 




WRIIEL 


1 ami 


vv J f y £ 


1 A7al 


1 7S700 




MOV 


THISLM, 


AXOUT 




00^70fi 


069 303 






ADD 


tAX0UT)4 


♦ AXOfiT 


1 ¥13 » 


0037 1 


00 1 4 1 A 












4 aA0l 


0017 1 9 




17^713 


^ 1 T'O 1 w 1 


"f STB 




SWITCH 


* wO * 


001? 1 6 


1 0041 1 






n n J, 




WGO 


1 wo* 


009790 


4 04680 

A ^ V *J V 


001730 


NRIG 1 


GROOVY f 


WRED 




1 A A 1 


001 *f A 

W w 3 7 Z •» 


4 a4 A 10 




COPYIjN 






1 WO^ 




0007i(9 






BR 


WRITE2 












WREDI 








4. WD w 


009730 


104604 

Jr I' "T « t/ T 




PRINTC 








003732 


1 32767 


000001 


175671 


BITS 


• ALLr 




1066 


003740 


001 37 1 






BNF 




WHIG 


1069 


003742 


000522 




WQOI 


BR 


DOXIT 




1070 
















1071 

















FFHMIT P^')T,linwl.\5f; St:;»'irOT , 

LOOKUP THF I.INI^: 

TFST FOP LIME 6FMrf 

BRANCH TO PRINT TITT.K O^-'LY 

PRIMT -lOHmZEHf) LIMK >vOS, TN "AC" 

HEAD W/0 TRACF 

ppmX ONK CHARACTKR 

TEST FOR F.m 

REPKAT 

C0.*1PUTE ?JrXT LINE 
ADDRESS RKAHY MOw, 
LEAVfc; IF LAST ijTNF, 
TFST FOP SIMCJLt: LINF 
YFSxFXIT 

SAME GROUP AS iiAST LIK'E? 
COPY TriTS SFXT LIVE NUWPliR, 
GO FIND IT, 

PRIf'T EXTRA CR AFTER GROUP, 
TEST FOR "ALL"? 
YES.KFKP IT UP, 

RET'IHK? 
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107 3 


















!074 










i#frasp:*frasf 


ALI.ttERASE TLXT^ERASh: IGRO' 




107h 


















\ 076 


{^03744 








FRASFI 


TESTC 




fTEST TUF AKf^UMKMT, TF A'"y. 


ie^77 


003746 


004814 










ERVC 


lERASt "VARlAdLKS 


1078 


P'0:^7f>0 


004C^.J2 










ERL 


1 ERASE LTMF HH GROUP OF TtXT 


1079 


0^3752 


002314 










L1^'ERH 


f EHkOK, 


1080 


0*53754 


122704 


000101 






CMPB 


i»A, CHAH 


ITEST FOR "ALL 


10R1 


003760 


001003 








BNE 


FHT 


IWHY NOT USE A VARTABLF NAMb; ? 


10«2 


003762 


104640 








FRASET 




lOUT THK TEXT 


1093 


003764 


104636 






ERVI 


FRASEV 




1 ERASE THE VARIABLES ALSO 


1094 


003766 


104632 








START 




tGCi TO COMMAND/IMPUT MODF 


1088 
















) 


1086 


003770 


122704 


000124 




ERTI 


CMPB 


i»T# CHAK 


1 "ERASE TEXT" ONLY ? 


10B7 


003774 


001002 








BNF 


ERL 


mo, DO LI?^E 


1088 


003776 


104640 








ERA5ET 




t YES 


1089 


004000 


104632 








START 




fGO BACK 


1090 
















1 


1091 


004002 


104622 






FRLI 






rREAD UNE ^aiMBER, 


1092 


004004 


005701 








TST 


AC 


iDOw'T fciRASE LINE 


1093 


004006 


001706 








BEG 


SERR 


f iiEHOI 


1094 


004010 


000004 






ERG I 


DELETE 




fEXTRACT ONE LINE (NO BREAKS13 


1095 


004012 


10S767 


175613 






TSTB 


SWITCH 


fTFST FOR SINGLE OR GROUP 


1096 


004016 


100762 








BMI 


ERV 


fONLY ONE 


1097 


004020 


005703 








TST 


AXOUT 


fCHECK FOR EVD OF LIST TO 


1098 


004022 


001760 








BEQ 


ERV 


1 AVOID REALLY WILD LOOPl 


1099 


004074 


104650 


003764 






GROOVY 


, ERV 


ITEST FOR SAME GROUP MEMBFR 


1100 


004030 


104630 








COPYtN 




IMOVF AHEAD 


1101 


004032 


000766 








BR 


ERG 


fAND DO ANOTHER. 


1102 
















f 


1103 


004054 


104636 






ERVCl 


ERASEV 




f»E# COMMAND IN TEXT IS OK, 


1104 


004036 


000606 








BR 


PROC 


»aO TO NEXT COMMAND OF PROGRAM, 


110S 


















1106 


















1107 


















1108 










1 "COPYLN 








1109 


















1110 










pUSED By AWRXTC*, ftERASEOf AND «D0* 




1111 


















1112 


004040 


0163«7 


000003 


i7S556 


COPYLXl 


MOV 


2CAXOUT3,LINENO 


fUSC NEXT LINE NUMBER 


1113 


004046 


000305 








RT5 


R5 


» RETURN TO #WRITE»ERASE#nD«, 


1114 


















13 16 


















1116 










f »ERASET 


H 






HI? 


















1118 


0040«0 


016767 


175574 


175566 


ERTXl 


MOV 


TOPr BUFH 


fblRASfc; AT,L TEXT 


1119 


004056 


012767 


176122 


175570 




MOV 


#0*CFRS«?,Ct RS 


flNXTTALTZF LINE ZERO POT'JTER DATA. 


1120 


004064 


000205 








PTS 


R9 





FOCGT,002 
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1 122 








1 1?1 








1194 








1 1 ?b 








1 1!?6 








t 127 




104672 




1 12fi 


004070 


010446 




1129 


004072 


010346 






004074 


016746 


175504 


nil 


004100 


104624 


004106 


1152 


004104 


000407 




1133 








1114 


004106 


105767 


175517 


1115 


00411 2 


100442 




1136 








in? 


004U4 


104650 




lllS 


004116 


004220 




1119 


004120 


104630 




1 140 


004122 


022323 




1141 


004124 


116746 


175501 


1142 


004130 


016746 


175452 


1 143 


004114 


004767 


177304 


1144 


004140 


012600 




114b 


004142 


112667 


17546J 


1146 


004146 


100416 




1147 


004150 


016703 


175430 


1 148 


004154 


062303 




1149 


0041«t6 


001412 




1150 


004160 


010367 


175422 


llSl 


004164 


132767 


000001 


1152 


004172 


001352 




1153 


004174 


126063 


000003 


1154 


004202 


001746 




1155 


004204 


012667 


17S374 


1156 


004310 


012603 




11S7 


004212 


012604 




il58 


004214 


000167 


177234 


1199 








1160 


004220 


104615 




1 l<il 









»RECURSTVF OPKRATE 













MOV 


CHAK . 


- CSF ) 




MOV 


AXOUT, 


••(iSP) 




MOV 


PCF, 


• (SF) 






DOGR 






BK 




nOGHPl 


DOGH i 


T5TB 




SWITCH 




BMT 


DOER 






GROOVY 












nOEH 


00GRP2 J 


COPYIiN 








CMP 


f AX0UT5*, CAXOUT)+ 


nOGRPl t 


MOVR 


SWITCH, 


-CSP) 




MOV 


THISLN, 






JSP 


PG# 


PSCAN 




MOV 


CSP)*, 


TKMP 




MOVB 


C3P)*i 


SWITCH 




BMI 


DOCONT 






MOV 


PCf # 


AXOUT 




ADD 


(AX0UT) + ,AXOi;T 




BBO 


DOCONT 






MOV 


AXOtJT, 


THISLN 




BITB 


lAr.L* 


SWITCH 




BIfE 




D0GKP2 




CHPB 


3CTEWP) 


» 3 (AXOUT 3 




BEQ 




noa»P2 


DOCONTI 


MOV 




per 


DOXITI 


MOV 


f8P)+, 


AXOUT 




MOV 


(5P)*# 


CHAR 




JMP 




PRDC 



DOERl ERRQ!li»20U6,^6, 



ISAVF THt^: ^iFXT CHARACrFR, 

ICHARACTFR POIWTER OF fUHHEKT I.OCATJO 

ISAVE ADDRESS OF LlvP" AND 

ILOOKHP THE \>im 

(FOUMDl 

[TEST FOR SIMGIfcTOM 

I YES, OUGHT TO HAVF BEEN THFRh, 

|C(THISLW)hC(AX0UT3 , 

fCOMPARE GROUP nOS, 

lERRHR, MO Sf?CH GROUP 

tCOpY FIRST Ll^e ivO, OF THE GROliP 

fPDIwT FORWARD 

iSaVF FLAGS 

•SAVE ADDRESS OF LINE BEING DOMF 
SCAV COMMANDS IN THAT LINE 
RESTORE LINE LAST DONE ADDRESS 
RESTORK CORRECT SCOPE OF »D0" 
IF SINGLE LINE, -E ARE DOME WOW, 
KEEP POINTER TO NEXT LINE TO BE DONE 
COMPUTE MEXT ADDRESS IN GROUP, 
LEAVE IF OUT OF TEXT ALTOGETHER 
SAVE POINTER 

TEST FOR "DO" OR "DO ALL" 

COMPARE GROUP MOS, 
GO DO NEXT ONE, 
* • t 
t f t 

RESTORE THE LAST CHARACTER, 
CONTINUE THE STRING 

NO SUCH GROUP TO BE DONE, 



.MAIM 
FOCGT 
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1 1 fi3 








1 lfi4 








1 16b 








1 1 66 








' 16 / 








1168 


*^»4222 


1^04767 


000446 


1 J 69 


004226 


104634 




1 1 


»»4230 


1 22704 


000217 


1171 


004234 


001006 




1 172 


004236 


010246 




1173 


004240 


104660 




1 1 74 


004242 


007064 




117b 


«'»4244 


104600 


001441 


1176 


0434252 


10461 7 




1 177 


004254 


1 04660 




1178 


004256 


104600 


001441 


1179 


004264 


^00112 




1 1 80 








1181 


004266 


012746 


040000 


1 182 


004272 


012746 


000001 


1 lfi3 


004276 


000403 




1 184 








1 185 


fA/% A Ml M M 

004300 


024646 




1196 


004302 


007063 




1 1 S7 




104660 




1188 


004306 


024646 




1189 


004310 


007063 




1 190 


0043! 2 


010346 




1191 


004314 


016746 


17S264 


1192 


004320 


004767 


177126 


1193 


004124 


012667 


175354 


1 194 


004330 


012603 




1195 


004332 


016602 


000010 


1196 


004316 


00574« 




1197 


004340 


010616 




1 198 


004142 


062716 


000006 


1199 




007001 




1200 


004380 


007014 




18«!1 


i%tA A m M i% 

004SB2 


007061 




< «k JH M 

1202 


fx /x M n V 4 

»043B4 


00B726 




1303 


W04396 


007023 




1204 


004360 


00S767 


1752J4 


1205 


004364 


003752 




1206 


004366 


062706 


000012 


1207 


004372 


000207 




1208 









f #SET«FOR# 



fLiDOP CONTROL STATEMENT 



sf:t«, 

FORI 



PC, 



GfcTARG 



CHAR 



»2l7i 
FINERR 

PTR, p(SF) 



001336 



001 330 



JSR 
SPNOR 
CMPB 
BNE 
MOV 
FVAL.X 

FPPUT*THROUGH+STftCK 
S0RTJ,TLIST,FLIST1 

FiNERRt FRROR + 20H.7,+7, 

FINCRl FVAL.X 

S0RTJ,TLIST,FLIST2 

BR FiNfcRR 



FINFINl MOV 
MOV 
BR 



#40000, wCSP) 
»1, »(SP5 
FCONT 



FLIMiTt OPEN*STACK 

FPPUT+INTO+STACK 

EVAL.X 
FCONTI 0FEN4STACK 

FPPUT*INTO*STACK 



FC0fiT2l MOV 


AXOUT, 


• CSP1 


MOV 


PCF, 


■ CSP5 




PC, 


PROCESS 


MOV 


(5P)*, 


PCF 


MOV 


iSP)*, 


AXOUT 


MOV 


10CSP), 


PTR 


TST 






MOV 


SP, 


fSPJ 


ADD 


16, 


•ftp 



FPGCf^IPfR 
FPADD4THR0UCH+5TACK 
FPPUT*1PTR 
TiT C5P)* 
FPSUBtFROM+STACK 
TST HORD 
RLE FC0NT2 
ADD #12, SP 

POPJ 



fLOCATE THF VARIAbLb; 

flGNORF TRAIMWG ftPAf't-JS CCD) 

fTFST FOR "a" 

lERRHR TO LEFT OF a SlGiv 

tSAVF VARIABLE POINTFH ON THK STACK, 

lEVAt^UATfi: RIGHT HAMD fXP, 

tUPDATE + lNDL-X VALEF 

ITFST TERMI'^ATOR 

fILLFGAL FORMAT IN #SET* OR »FOR# CUMMA.^f^ 

I EVALUATE EXPRFSSION, 

»TEST TERHTMATOR 

fERROR CALL 

f 

ISET THE 

tlN'CREMEMT TO UNITY 
I GO SAVE THE LIMIT, 
t 

JSAVE INCREMENT 

> EVALUATE 'limit 
rSAVF THF LIMIT, 
I,.. 

ISAVF TEXT POINTER ID AND 

ICURRENT LINE ADOR THE« 

IGO EXECUTE THE REST OF THE LINE 

[RESTORE TEXT POINTERS 

lt«* 

IGET VAR POINTER 

(CREATE I?^DEXED ADDRESS OF INCREMENT 

LOAD FLAC WITH THE VARIABLE 
ADD THE INCREMEfJT AND 
SAVE IT 

INDEX TO THE LIMIT 

I COMPARE RESULT WITH LIMIT 
AMD DROP IMDEXED POINTER, 
REPEAT, IF LIMIT NOT EXCEEDED 
UNLOAD THF STACK, 
EXIT THE COWMAMD, 



.MAIN, 


MACY1 1 , 


620 19* 




FornT,0K2 






1215^ 








121 1 








1212 








1213 








1214 


004174 


1 1 C'!405 




1215 


»t34 476 


1 255427 


00*^2 1 1 


1216 


004402 


1034PI1 




1217 


0044^4 


I' J O T/ 




1218 


0044^6 


1 295516 




121^* 


00441 


101023 




1220 


(904412 


1 1 96^0 




1221 


004414 


T ' A Ti V WJ 4^ 




1222 


004416 


00 1 4<'$7 




1223 


004420 


007003 




1224 


004422 


022626 




1225 


004424 


1 C O J *' 4 




1226 


004426 


X </ U ^ V-f 4' 




1227 


004430 






1228 


004432 


042701 


1 77700 


1239 


004436 


062701 


007001 


1230 


004443 


007200 




1231 


004444 


012702 


001613 


1233 


004490 


007061 




1233 


0044S2 


060500 




1234 


004454 


001 354 




1235 


004456 


1^ t- TJ * 13 f 




1236 








1237 


004460 


1 20527 


000206 


1238 


004464 


00301 1 




1239 


004466 


016246 


000002 


124C 


004472 


01 2246 




1241 


004474 


01 {IS46 




1242 


004476 


004567 


176423 


1243 


004902 


100007 




1244 


004904 


104653 


004572 


124S 








1246 


004918 


010446 




1247 


004912 


012746 


004656 


1248 


004S16 


104614 




1249 


00492^ 


00B046 




12if 


004932 


104620 

A w ^ w *B V 




12S1 


004924 


004544 




1252 


«04526 


004574 




1283 


004530 


004614 




1294 


004532 


004767 


000146 


1255 


004936 


104634 




12S6 


004540 


100413 




1257 


004943 


000413 




1258 









Ul0l PAGE i0 



f 'FVAL» 



tKVALUATF AN EXPRESSION' 



t' 1 C- »' " i 




CHAH, 


R6 


fCripY THIS OP, 




CMPB 


CHAH* 


#211 


» THIS:)PsRPAf<? 




BLO 




h"rFHM2 


t N 




CLR 




R5 


tYES, SbT THTSOPsZEKO 


FTFRM 7 1 


CMPB 


RS, 


(BSP 


fCnMPARE TWO OPERATORS 




BHT 




Ef AK 


|LAST>THIS?-YF;S stack AST- CC'TTv^k 




MOVB 


(SP)+, 


TEMP 


tSFl LEFT HAT.F TH ONFS OR ST'^P IF 7.E:«n 




MOV 


TEMP, 


AC 


iCOPY THE nP COOK, 




BEQ 


EPTSRE 




fEND OF JOB?-YES, JUST GO T.F.AVP^ RESUTTS 




FPGKT+FROM+STACK 


pf40, USE ITEM Oti TOP OF STACK, 




CL0SE+5TACK 




IREMOVE TriF ITEM 




H u 

AaLo 




AC 


IMOVE OPERATOR CODE INTO POSTTIO^ 








AC 


1 » » t 








AC 








»«100i 


AC 


fMAKE POSITIVE, 


1 1 IT u rv i 




WFPGET+IPTR, AC 


ILOAD BASE BTi-JARY PLHS. AHDRESSIN^ "OnE, 




FCODE 






f EXECUTE THE AC J 




r w V 






iLOAr POIN'TER 






PTR 




ISAVE COPY OF RESULT 




flUU 


R5, 


TEMP 


ICHECK THISOP-LASTOP 




p f» t' 




EXERM2 


fCn COMPARE PRIORITIES, 




r wfu 






lEXlT 


EPARl 


CMP8 


R5, 


1206 


iCHECK FOR 


BGC 




EPAR2 


ILEFT PAREN,T-YES, 




MOV 


2CPTR3, 


• CSP) 


lOPEN STACK AND SAVE DATA, 




MOV 


(PTR)*, 


• CSP) 






MOV 


K9# 


• (SP) 


lUPDATE LASTOP 


«Rv»n Ail 


JSR 


R5# 


SPNXT 


1 OUGHT TO BE AN ARGUMENT HERE 




BPL 


EVAl,*2 




ITEST FOP THE TYPE 




SKPtPR# 


OPERR 




f ILLEGAL TO STAR AM EXPRESSION 










IWITH RIGHT PARENS, 


P:i>AR2l 


MOV 


CHAR* 


• CSPi 


fSAVE THE LP CODE AND COMPUTE THE 


MOV 


»EruN3, 


-CSP) 


iLOAD TRANSFER FOR "POPJ" AT "EXIT" 




6ETC 






IMOVE ONTO NEXT CHARACTER (ENTRY POl^iT #23 




Ch^ 


• <SP3 




fSET LASTOP«0 CEKTRY POJWT tl) 


TESTC 






iTEST CHARACTER TYPEl 




ETERMl 




r COULD BE A 'INARY OPERATOR 






Ef*UM 




rOR A NUMBER, 






ErUN 




jOR A FUNCTION, 




JSP 


PC, 


GETVAR 


lOR A VARIABLE 


OPNEXTl 


SPNOR 






lIGMORE SPACES AROUND OPERATORS (O'D) 


BMI 


ETERMN 




fIF »3eGATlVE, THEN IT IS A LEGIT, TERM, 




BR 


OPERR 




tOTHFRWlSE IT IS ILLEGAL FORMAT, 



*.MAIM,| "YU,620 19«MAR*73 13»0l PACK 31 
FOCGT.W, 



















12fiJ 


^^04544 


012702 


003530 


ETFRMli 


MOV 




,PTR 


1262 


004550 


12'^4?7 


!t00?02 




TMPB 


CHAR, 


«202 


t263 


004554 


C?pil 707 










FTEhM 


1 ?64 


f504556 


103747 






Bin 




ftHGNXX 


1 2fi5 


(^04560 


J20427 


0002 3 } 




CMPB 


CHAR, 


<f21 1 




004564 


10374? 






RLO 




ELPAR 


12fi7 


«04566 


I046'i2 


004374 


EXERMNI 


SKPLPR, 




FTFHM 


I2fi8 


004572 


104621 




OPKRRI 


FRROR*201+8,4'8, 




1269 
















1270 


004574 


U2767 


000020 


175027 ENUMi 


MOVB 


IWALPHA 


, SWITCH 


1271 


004602 


007075 






fREAD 






1272 


004604 


012702 


00161 2 


ENlfM2l 


MOV 


i*FT.ARG, 


PfR 


127 3 


004610 


007061 






FPPUT+IPTR 




1274 


004612 


000751 






BR 


OPNKXT 




1275 
















1276 


004614 


00500b 




EFlfN I 


CLR 


R5 




1277 


004616 


006305 






ASL 




RS 


1278 


' 004620 


006105 






POL 




R5 


1279 


004622 


060405 






ADD 


CHAR, 


R5 


1280 


004624 


104614 






GETC 






1281 


004626 


100373 






BPL 




EFUN*2 


1282 


004630 


010446 






MOV 


CHAR, 


• CSP) 


1283 


004632 


010546 






MOV 


R5, 




1294 


004634 


104660 






KVAL.X 






1285 


004636 


012605 






MOV 


(SP3+, 


RS - 


128f» 


004640 


012701 


001166 




MOV 


IFNTABL 


#AC 


1287 


004644 


009741 






T5T 


*(AC5 




1288 


004646 


001410 






BEO 


VKRR 




128i 


004650 


024105 






CMP 


•CAC3# 


RS 


1290 


004652 


001374 






BNE 


,«6 




i291 


004654 


004751 






JSR 


PC, 


f-CAC) 


1292 


004656 


104646 




EFUNSI 


PAPTST 






1293 


004660 


007070 






fPNOR 






1294 


(904662 


000750 






BR 


EflUM2 




1295 
















1296 


004664 


010516 




EVALUXl 


MOV 


R5, 




1297 


004666 


000713 






BR 






1298 
















1299 
















1300 










;eot 







ASSUMF PRFSFNT VALUF OF ZKRO, 

YFS, GO PROCESS IT 

Pt,US?»¥F5, TG^ORE IT 

bO'^W. TSfPt: OF RIGHT TER.«fI.\- ATOH? 

VC, GH TfclST FOR LEFT PARt-fiTHFSIS SPFCTAT, r kSk 
LEFT PAREy? * C^f^iTl^:UF TO FROCFvSS 

MISSI'^G OR noUHT,E OPERATOR ERROR 

USE INTERNAL DATA A^D ACCEPT ALPHA DATA 

READ IN A NUMBER, 

SET POINTER 

SAVE RESULT 

GO GET OPERATOR 

OLD "EFOP" 
HASH CODE 



READ THE MNEMONIC LETTERS 

REPEAT UNLESS TERMINATOR FQlU^r> 

SAVE LAST CHARACTERIPAREN, 

SAVE HASH CODE 

PROCESS FIRST ARGUMENT 

GET BACK "EFOP" 

INIT THE SEARCH, 

TEST FOR END, 

NO SUCH FUf^CTIOM 

TEST FOR MATCH 

REPEAT IF !^0T FOUND, 

CALL THE FUNCTION, 

CHECK CLOSING PARENS 

BE SURE THAT RESULTS ARE NORMALtEFD, 
GO SAVE RESULTS AND SET POIMTER, 



tSIMULATE "PlISHJ EVAL«»2'' 



•.MftTM, MACY! 1,620 19-MAR.73 lH^i PAGE 3? 
POCGT,002 



I 








4 ^ n ^ 








1 3f 4 








1 3^5 








1 3*^6 








! 3^7 




1 f 46*^5 




i fk A o 


fl4 M il C ^ T 


1 ^46^ 7 




i a M Q 




4 1% Jl £. ^ IJI 




! 31 




00425/ 




till 


«3w47»'K 


004670 




1312 




004570 




1313 


W04704 


012746 


4 /I A A A /ji 
1 00000 


1314 


m a ^ "4 < ITS 
0K47 1 


1 10416 




1315 


£4 a jl i ^ 
BI047 I 2 


ntxiC. 1% A C 
003046 




1316 


00471 4 


104614 




1317 


0047 1 6 


4 fit f% A Ck A 

1 00404 




1318 


W W4 7 3? w 


4 4 A Jl A £ 

1 1 04oo 


00000 J 


1319 


004724 


104614 




1 320 




100 J7o 




1321 


A| /ft j( «f A A 


104652 


A A A 7 7 & 

0047 7o 


1 322 


ww4734 


A i Al j4 ^ A 

01 0446 




1 3?3 


£31 <3l ii 4 ih £. 


1 04660 




1 324 


0Ip474B 


00707 1 




1 525 


004742 


010166 


A A a £4 A 
00000 A 


1336 




4 a A 1 *T 


000 A I * 


i 1* A If 

1 5"7 


UKOk aH9l*^ 


A A 4 A/l A 

WW J. ipSl% 




1 32o 


l£'w4734 


1 04DOW 




1 3?9 


oia A *f K £. 

«'I(J4750 


0070 7 X 




1 330 




4 4 M 4 A A 


0009B J 


1331 


I0I147&4 


4 a j4 A il A 

1 04d4D 




4 V V O 

1 33* 


Kil0# f DO 






1333 








133* 








4 a 9 c 

' 335 




ai 17 A& 


S Afl0l4& 

1 KIT7C4IO 


1 336 


da A *f ^ A 
WW4774 


n « aa A& 
010040 




1337 








1388 








1339 








134i 








134i 








1 342 


0B4I>776 


A 4 A "f ift A 

016700 


4 *l A A A A 


1343 


fll A fll A J« 

009002 


016705 


4 ^ A A. A A 

1 74644 


1S44 


WW50WD 


01000* 




1345 


A 111 4 n 


a 1 A K Jl B 




1 546 


00501 2 


4 A AS A 4 

160501 




1347 


aaKfl 4 A 






4 4 il {) 


» ' « S( IP J D 


V P V IP A 




t 9 4 Q 


00*16199 

317 A 4i 


cmJw JIC^ A 




13S0 








1381 


005024 


040102 




13S2 


005026 


£^42702 


000007 


13SS 








1354 









1 IGFITVAR' 






fFIND OP 


CPtATK 






VEPHI 


F;BROP + 201+2,*2, 




PEPRi 


KRPOR+201+3,+3, 




GETARGi 


*r IT C T P 








C T kl C D □ 

F iNtKK 








VtPK 








VtPP 






GETVARl 


MOV 


M 4 (A:Ji(AOi€k 






MOVB 


C H A K » 


a 4iD 




CLtH 




• f 4:P ^ 
» i or J 




CCiTC 








BUT 








14 A 4rQ 

W V Vd 


Vf n AK 1 


1 f 4! D 1 




GtiTC. 








BPL 






GSERCHI 


5KPLPR# 


GSl 






MOV 


CHAR» 


• r e P ^ 

» 15"^ 3 




rVAL.X 








rPINT 








MOV 


ACf 


1 1 or J 




CMPB 


CHAR» 


1214 




BNE 


GS0 






CVAL.X 








FPINT 








MOVB 


AC, 


3C5P) 


Gset 


PART8T 










GSl 




INHIP UP A VARIABLE &tC(TeMPn 


WHIPVI 


MOV 


1100046 


f(SP5 




MOV 


TEMP* 


■ CSP3 


laTACK NOW CONfAINSi 






fSP3 








2(SP5 






Gail 


MOV 


STARTVi 


TEMP 




MOV 


BOTTOM, 


R5 




MOV 


TEMP. 


AC 




CMP 


•iCR5}f 


«(R5) 




SUP 


R5, 


AC 




MOV 


0SP, 


PTR 




ADD 


2(SP), 


PTR 




Sv^AB 


PTR 






BIC 


AC* 


PTR 




8IC 


#7, 


PTR 



ICHANGE #7 TO »•! FOR A CHRONOL 



IM.KtiAL VAKIABLK OS Fl'^CTIO'^' '-'A'-^t, 

PAREIH MXS^-'ATCH B:hROP 

CHfcCK CARF.KIILLY 

TFRMINATOR 15 NOT A VARIARLF, 

N 

Fe? PTRbHOLF 

CLEAR WAMF SPACE ON STACK TO "SPACk:", 

SAVF FIRST LETTER OF ^'AMF. IN STACK 

CLEAR SUBSCRIPT SPACt m STACK 

READ AND TRACE NEXT CHARACTER 

TEST FOR TERMINATOR 

SAVF SECOWD LETTER OF NAME 

IGNORE I'NTILL TERMINATOR KOii^jn, 

CHECK FOR SUBSCRIPT 
SAVE LEFT PARENS, CODE, 
EVALUATE THE SUBSCRIPT AND 
CORRECT IT TO AN INTEGER 
SAVE SUBSCRIPT ON STACK 
COMMA? 

SKIP IF OKLY ONE SUBSCRIPT, 
GO READ THE SECOND SUBSCRIPT, 
CONVERT IT TO 0»256, 
COPY 2AND INTO LEFT HALF, 
CHECK FOR CLOSING PARENS MATCH, 



fGET TEMPORARY POINTER (UPPfclR LIMIT) 

J GET EKD OF "AREA", 

ICOPY THE STOP VALUE (LOSn'ER LIMIT) 

I BE SURE LAST ENTRY DOES NOT PASS CBOTTO"), 

jCOMPUTE TABLE LENGTH MEGATKD, 

fCOPY SUBSCRIPT 

jCOMBINE LETTERS PLUS SUBSCRIPT 

IMAKE LAST CODES FIR5TJ 

ITAKE RESULT MODULO THE SIZE OF 

rTHE SYMBOL TABLE AMD 

I MODULO 10t81 



TABLE, 



.MAIM, 


1 YU 


,620 19 




I 




1 156 






1 157 






1 358 






1 15^ 






1 Ifif' 






1361 






13fi2 






J 363 






1364 


005032 


060002 


1365 


005034 


010201 


1366 






1367 






1368 






1369 






1370 






1 371 






1372 






1373 






1374 


005036 


004567 


1 375 


005042 


010002 


1376 


005044 


010105 


1377 


005046 


004567 


1378 






1379 






1380 






1381 


005052 


016746 


1382 


005056 


010002 


1383 


005060 


005762 


13S4 


005064 


001441 


158& 


»05066 


062702 


15R6 


00S072 


020216 


1387 


005074 


103771 


1388 


005076 


104637 


1389 






1390 






1391 






1392 






1393 






1394 






1395 






1396 







19-MAR-73 13101 PAGE 33 



000072 
000062 

574574 
000006 

000010 



iTFMPaSTART 
f AC«I,fc;NGTH 
|R5«L0WER LIMIT 
iPTRsHASH CODE 

fSFARCH VARIABLES fOH MATCH OR AM UWUSFD SPACK 



ADD 
MOV 



PTR, 



PTR 
AC 



flNITTALIZf POI'iTLR "FTP" 
tSAVF THIS VAIjl't 



t ITEMP' 
» «AC' 
t »PTR ' 



POINTS TO UPPER LIMIT 
MOLDS HASH-CODE ADDRESS 
SCAMS THE STORAGE 
fUXOUT' POINTS TO NEXT CHARACTER 
I'CHAR' HOLDS LAST TERMINATOR 
|'R5« HOLDS THE SCAM LOWER LIMIT 



JSR 


R5, 




1 SEARCH LOWER HALE 


MOV 


TEMP, 


PTR 


fiJEGT N AT TriF TOP J 


MOV 


AC, 


R5 


>EWD VALUE RESTARTED, 


JSR 


Rb, 


CTRY 


fSEAPCH UPPER HALF 



jSFARCH FOR A ZERO^VALUE VARIABLE AND 5CPATCR IT 



MOV 
MOV 

GSWIPI TST 
BEQ 
ADD 
CMP 
BLO 



BOTTOM, miSP) 



TEMP, 

6CPXR) 

GTAKE 

*10, 

PTR, 

6SWIP 



PTR 



PTR 
#SP 



ERROR*20l*U,*U', 



|£ND AT THE BOTTOM 

JBEGIN AT THE TOP 

>ZERO? 

fYESi 

I BUMP, 

lEND? 

I NOT Xttl 

fjUST no ROOM AT ALL I 



p VARIABLE STORAGE I 



INAMEI (B«A) 

ISUBSCRIPTI (ifi) OR f8.85 I (2,i) 

rLORDiEXPi trtHkh value or ptr poij*ts to this LGCATI0»I,) 

fHOROl (IF zero them ALL THESE PARTS ARE ASSUMED ZERO) 



'.MAIN, ^'ACYn,620 i9*MaH»73 13101 PAGE U 
rOCGT,002 



1 398 
1399 

UC"1 

1 4!^2 

1403 

14«4 

140S 

J 4CI6 

14«7 

Mm 

14^9 

141P 

1411 

1412 

141 3 

1414 

141b 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1450 

USi 

t4S2 

1433 

1434 

1435 

1436 

1457 

1438 

1439 

1440 

1441 

1442 

1445 

1444 

144S 

1446 

1447 

1448 

1449 

14S0 

1451 



I "KRASKV" 





(^1 6701 


1 7 4546 


FRVXl VOV 


BOTTOM, 


AC 


0t!551(^4 






CLP 


• (AC) 






020167 


174532 


CMP 


AC, 


BUFH 


005112 


10140 3 




PLCS 


, + 10 




005114 


020167 


174522 


CMP 


AC, 


AXIN 




101371 




BHI 


,-14 




005122 


0627P)l 


000120 


ADn 


#80,, 


AC 


005126 


010167 


174514 


MOV 


AC, 


SIARTV 


005112 


000205 




RTS 


R5 





005134 
005140 
005142 
005144 
005146 
005152 
005154 
005156 

00S160 
005166 

005170 
008174 

005200 
005204 



005206 
005210 
005214 
008216 
005220 



005726 
062716 
120426 
001225 
104614 



iGTRY 

fSCAN FOP A MATCH OR A VOIO, 

iCAliI.ED BY JSR R5,r.TRY 
fSTACK CONTAINS 
|»LOWER LIMIT* 0CSF) 

|»NAME* 4eSP) 
MOLD PC«6{SP) 

IPTR CONTAINS START Of VARIABLF: STORE 



026612 


000004 GTRYt 


CMP 


4CSP), 


•PTR 


001407 




BKQ 




GTFST 


005712 




TST 




9PTK 


001411 


GTRY2I 


BtCQ 




GTAKE 


062702 


000010 


ADD 


110, 


PIP 


020216 




CMP 


PTR, 


9SP 


103767 




BLO 


GTRY 




000205 




RTS 


RS 




026662 


000002 1100002 GTESTI 


CMP 


2CSP3, 


2(PTR) 


000766 




BR 




GXRX2 


016622 


000004 GTAKEt 


MOV 


4tSP3, 


ePTR5* 


016622 


000002 


MOV 


2CSP)i 


(PTK)* 


062706 


000006 


ADD 


#(»# 


SP 


000207 




POPJ 







fCI.EAH UP FKO'-^ THt B^TTO^' 
iCtEAH A >iOHr> 

ITKST FOP F-NH OF VAKlAHLt: AHEA 
flJSK LARGKR OF CAX^^"J OR (BUFR1 



f COMPARE TRUE NAME, 
pGO TKST SUBSCRIPT 
ILOOK FOR NULli 
|G0 SWIPE TTl 
IMOVF POINTER 
»TCST LIMIT 
I gKPSAT i 

INOT IN THAT AREA, RETURN, 
I 

ITEST SUBSCRIPT 

fTRY AGAIN 

I 

I SAVE NAME 
ISAVE SUBSCRIPT 
tliEAVE PTR AS POINTER 
IFLUSH STACK DATA 

IRETURN FROM THE "GETVAR" ROUTINE, 



f »PART5T» 

IBE SURE PRESENT CHARACTER IS MATE TO PARENS IN THE STACK 



000003 



PARTSAI TST fSPJ* 

ADD «3, 

CMPB CHARf 

BNE PERR 



(9SP 

CSP) + 



IDUMP OLR »R5« 

fCOMPUTE MATCHING PARESIS 

tCOMPARE THE ACTUAL WITH COMPllTKH, 

jGO CALL "EHROR" IF THEY DOn'T ^ATCH 



'.MAIM, / yn,620 19.MAR-71 I3l0l PAGE 34»1 

1452 00P!llb JMP fSRfi fRFTl'RM TO THE SEQUfWCP 



'.MAIM, MACY1l,620 59#MAR«»75 lIlPil PAGfL 35 
FOCGT, 01(52 



1454 








I45b 








1456 








1 457 








1 458 








1 459 


Qki'A Mi ^ A 

^w35 224 


1 M ft r> 3 O 




14665 




fe' «? * 7 D ' 


1 n 1 £ & 

1 / / « n 


1461 


W05232 


104473 




1462 


00S234 


016702 


174366 


1463 


005240 


A A !V A *• £ 

007076 




1464 


005242 


A A A «t >9 A 

000770 




1465 








1466 




A A A A ^ A 

000030 




1 467 


005244 


104656 




1468 


005246 


004767 


I 7 7^22 


1469 


f e?5252 


1 0447* 




I47f5 


005254 


010346 




1471 


005256 


1 10446 




1472 


00526W 


012 1 


A A A A ^ A 


1473 


005264 


1 60306 




1474 


005266 


A A A ^ A B 

010605 




1475 


005270 


010246 




1476 


005272 




VVViffV 


1477 


005276 




4 1 A 1 Aa 
1 7 ^J*© 


1478 


005302 


00S00* 




1479 


005304 


1 04606 




148« 


005306 


104602 


A A 4 A At 


1481 


0053 1 4 


A A flf 1 A 1 




14S2 


005316 


A A <k A A 4 

003004 




I4ft3 


A fik K *k nk a 

005320 


104641 




1484 


005322 


1 01O0W 




l4fl& 


00S330 


104616 




1466 


AAA 4 S M 

005332 


J A A *f £ J 

100764 




1487 


005314 


01 1702 




1488 


005336 


AA A*f C D 




1489 








1490 


A A IE J A 

005340 


a f fli 
*'09704 




1491 


005342 


001 7oB 




1492 


A A M % « 4 

005344 


1 12704 




1493 


005350 


104616 




1494 


005352 


I 1 1 767 


4 <f AO 


1495 


005356 


A 4 Ae A H 

01 0504 




1496 




1057^ J 




1497 


005362 


104660 




1 498 


(pwS Jo* 


f IPO** 




1499 


005366 


109067 


174216 


15P0 


005372 


062706 


000032 


1501 


005376 


112604 




1SPI2 


005400 


012603 




1503 


0054$!2 


000720 





I IMPUT-OI'TPIIT STA. fE'^IKNTS 



TASK 

PRINT* 
MOV 



ASKi 



005344 



001366 



ARDt 



Arixi 



AGO! 







IKVALUATF FXPKFSSION 


t s 




fMAKF LKADTN STG^IAT., 




PTR 


tLOAn FORMAT DATA 






IPRINT SAME 




TYPt 


fREPFAT 



STP1MG«24, 




TASK 






JSR 


PC, 


r.ETARG 


PRINT* 


' 1 




MOV 


AXOUT, 


• tSPl 


MOVB 


CHAR# 


• tS^5 


MOV 


•STRING, AXOUT 


SUB 


AXOUT, 


SP 


MOV 


SP, 


R5 


MOV 


PTR, 


• CSP) 


MOVB 


• 200, 


CBS)* 


MOV 


R5, 


AXIN 


CLR 


PTR 




BEA0C 






SORTC, 


TLIST+i, 


AFIX 


DEC 


AXOUT 




BGT 


.♦4 




CRROR+201+16,+16, 


SORTJ» 


SPECIAL, 


INtlST 


PACKC 






BMI 


ATAKE 




MOV 




PTR 


BR 


ATAKE 




TST 


PTR 




BCQ 


ATAKE 




MOVB 


• 214, 


CHAR 


PACKC 






MOVB 




DEBG 


MOV 


R5, 


AXOUT 


TSTB 


■CAXOUT) 


FVAL.X 




FPPUT+THROUGH+STRCK 


CLRB 


DEBG 




ADD 


|STRING*2,SP 


MOVB 


fSP)+, 


CHAR 


MOV 


CSP)*, 


AXOUT 


BR 




ASK 



CHFCK FOR SPtCIAL CODFS 



NUMBER OF CHARACTERS ALLOWKD ON I^PHT, 

CHKCK FOR SPECIAL COOKS 

RFAH "^AMF AWD SETUP PTR 

INDICATE READY FOR TfiPUT HATA, 

SAVE TEXT POINTER 

SAVE VARIABLE POINTER 

MAKF COUNTER 

OPEN AREA 0^' THE STACK 

SET RU80UT STOP 

STACK THE DATA POINTER 

PACK A LEADING ?.ERO, 

USE FOR PACKING 

SFT SPACE FLOP 

ACCEPT CHARACTER 

TEST FOR PRIME TERMINATORS 

COUNT CHARACTERS 

SKIP IF OK, 

TOO LARGE AN INPUT STREAM, 

TEST FOR ALTMODE, SPACE, R.O,, L,F, 

PACK INPUT AND EDIT, 

IF TERMINATOR, CONTINUE 

SET SWITCH 50 THAT SPACE CODE 

WILL TERMINATE AND ALPHA IS ACCEPTEH, 

CHECK STATUS OF SPACE, 
IGNORE, 

PACK AN EXTRA COMMA 

DISABLE TRACE 

PICKUP DATA 

BACKUP TO LEAD ZERO, 

GO READ THE NUMBER OR EXPRESSIO?Ji 

SAVE THE RESULT 

REfENABLE TRACE 

CORRECT THE STACK 

RESTORE TEXT SEQUENCE 

CONTINUF *ASK* COMMAND, 
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15^5 








1 5f^6 








1 5f^7 








1 S'^B 








1 5(39 








151 «^ 








15! 1 








1512 




1 046 42 


0.0501 5 


!5l3 


00541 


104614 




1514 


i4(iJ541 2 


104600 


001433 


1515 


005420 


122704 


000210 


1516 


t*05424 


101771 




1517 


005426 


000205 




1518 








1519 


At /sft af A n 


! 0461 4 




is?'?' 


^505432 


104622 




1B21 


005454 


010167 


174166 


1522 


005440 


000764 




1523 








1524 


005442 


1 12304 




1525 


005444 


122704 


000216 


1526 


005450 


001760 




1527 


005452 


122704 


000043 


1528 


005456 


001754 




1529 


/X t'Sl Mr jl ^ A 


104604 




1510 


»054o2 


000767 




15S1 








1532 


005464 


104642 


000015 


1513 


005470 


000747 




1514 









I "TASK" 

fAUXILLIARY PR0CKS50R FOR INPUT 



TCRLFI 
TASK4I 
001344 TASKXI 



TINTRI 



TQUOTt 



PHINT2, CRLF 
GETC 

S0RTJ|ALTST,ATLI5T 



CMPB 

BLns 

FT5 

GETC 
GETLN 
MOV 
BR 

MOVB 

CMPB 

BEQ 

CMPB 

BEQ 

PRINTC 
BR 



#210# 
TASK4 
P5 



AC, 



CHAR 



FISW 
TASKX 



CAXOUT)+,CHAR 
ICR, CHAR 
TASKX 

If'", CHAR 
TA5K4 

TQUOT 



TCRI,F2l PRINT2, 00015 

m TASK4 



COMMANDS 



tPRiNT THIS CODE FOR CR+LF, 

tHOVE TO MFXT CHARACTER 

fTEST FOR SPECIAL CODES CtiMTRY POIMT") 

IR-^PARR AMD a MOT VALID HERE | IGn- ORh: 

f COMMA, sum, AND CH WERE TESTED ABOVE 

f RETURN 

I 

J PASS PRECEPT SIGN 

fHEAD FORMAT CONTROL NUMBER 

fSAvE CODE 

iCOMTIWUE 

I 

IBYPASS TRACE 

IREAD AND PRINT WITHIN Q"OT£S 

iC.R.BNORMAli RETURN FROM 'TASK' 

iQUOTEsCAf^OMICAL RETURN 

IGO SEE WHETHER THERE IS MORE 

fPRINT MATERIAL, 

pREPEAT 

I 

»»eCR ONLY 

I BUT EXTRA RUB OUT, 
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1 516 
















1 538 








1 5 39 








1 54^ 




jFTiOATlNn POINT HAMDLtiR 


FOR F0CAT,-1 1 


1 541 








1542 




lEXTERNAL DATA IS fLORD 




1S43 




I INTERNAL DATA IS (EXP ) CHQRU ULORU ) 


1544 




1 ARITHMETIC OPERATIONS 


ARE NflMBERED fi-7| 


1545 




ITHE ADDRESSING MODES ARE NUMBERED 0-7 1 


1546 








1547 


007000 


EMTa007000 




154B 








1 549 


007000 


FPGET»EMT+00 


» OPERATIONS 


1550 


007010 


rPADDaEMT+10 




1551 


007020 


FPSUBBEMTt20 




1552 


007030 


FPDIV«EMT*30 


1 DIVIDE RY ZERO ERROR 


1553 


007040 


FPMUtiaEMT%40 




1 554 


007050 


FPPOW«EMT+50 


1 NEGATIVE POWER ERROR 


1555 


007060 


FPPUTbEMT*60 


jexponen'T error 


1556 








1557 


007070 


FPNORaEMT^70 


f FUNCTIONS 


1 55B 


007071 


FPINT"EMT*71 




1559 


007072 


FPSGN4EM'r*72 




I5g0 


007073 


FPABS"EMT^7 3 




15S1 


007074 


FPNEGaEMT+74 




1562 


007075 


FKEAD«EMT4i75 




1563 


007076 


FPRIKTsEMT<*76 




1SA4 


007077 


FZERSEMT477 


)100 TO 177 UNUSED 


1 565 








1566 


007200 


FCODE«EMT+200 


tCOMPUTEP OPERATION IN AC 


1967 








156B 








1569 




1201 TO 377 UMUSBD 




1570 








1 571 


000001 




ffPTR 


1572 


000002 


XPTR»a 


»AUT6 INDEX PTR BY TWO i40RDS, 


1573 


000003 


1NT0P3 


1 STACK 


1574 


000003 


PROMaS 


f STACK 


1575 


000004 


THR0USH»4 




i<^76 


000005 


IMMED«5 


IDATA FOLLOWS 


1577 


000006 


REli«6 


IRELATIVE (ADDR*,) 


1578 


000000 


STACKP0 


{ADDRESSING MODES 


1579 


000000 


DIRECTa0 


lABSOLUTE (FPADD + DIRECT, ADDR) CNONbP , I ,C , ) 


1580 




INDIRECT" AND "INDEX" ARE FOLLOWED BY COMMA AND ADDRESS, 


1581 
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5 534 ffOCALel! FLOATING POlKT HAfJDT,ER 



1 K O A 

1 O !^ D 


» J " :i '1 1 £, 


i vv D n 




r ft w T 1 


MOV 




-CSF1 


* tiCtl 
Ti" ' 


yi ifi \^ q ~j q 


4 /% A A u 

If! i /i H 't n 






ff uv 


%4, 




1 o CI 


iAffiK Aid 


^ 1 lOi 1 A Sm. 

y -' 1 /! J 4 






MOV 


%3, 




4 c a Q 

1 DOS' 


V? vy 5 3 


A < *^ A a 






MOV 


%2i 


4»CSF^ 


icon 




vl^ I 






MOV 


%i# 


«C5P? 


1591 










mOV 


%0« 


*{SP) 


4 A ^ 




rti * £ a 
1 6 f? f 


W V7 4? I 4 




MOV 


14(SP) 




4 K A 9 


U W D b 1 7 


4 4 £ ^ /> C 

1 1 e 3 


4 title. 

17/776 




MOVB 


•2CTEMP),AL 


1 394 




4 /% n .'X /I 4 






BHTj 


FPURE 




1595 


c c A /X 


015' 1 wb 






MOV 


AC, 


Al^ 


1596 








FPUREI 


MOVB 


kh, 


• CSP5 


1597 


f% 1^ K e fh jt 


122716 


n ra n 4t 

000070 




CMPB 


#070# 




1598 


A /;% If e A 


^0341 2 






BLE 


FLfDO 




1 ET a Q 
1 59^ 


^ A s e 1 




i ^ 1 1 "9 fJk 




BIC 


»»10, 


AL 




w»5536 


1 16505 


009o82 




MOVB 


IMADDRCAD.AL 


1 1 


4505542 


n H At C n ""t 

000507 






ADD 


AL« 


PC 


4 £ Al 1 




4 4 Q A 1 




tf T ni r% j% i ■ 

FLTDOl 1 


MOVB 


CPTR)+ 


,AC 


1 6913 


»»554b 


1 1 2205 






MOVB 


CPTR)+ 


,At 


1 6C^4 










SWAB 




AL 


1 6^3 


^ I'A OL C tt ^ 


105003 






CLRB 




Ah 


1 6ho 


i3t£X fi K V J 

w»5554 


01 1204 






MOV 


§PTR, 


AH 


J 60 / 




4 4 4 

111 O0lp 




C*f Ml f\ A a 

FliTOOl 


MOVB 


»3P# 


TEMP 


4 £ a Q 




A 4 A 1 4 £ 






MOV 


PTR, 


• (SP3 


1 6^9 


0155562 


01 6702 


1 74032 




MOV 


HORD# 


RH 


4 » 4 01 


0«3556o 




1 74030 




MOV 


LORD, 


Bh 


1611 


a CI e c 1 1 


I f5500i 






CLPB 




BL 


1612 


6'w5574 


106200 






ASFB 




TEMP 


4 £ 4 % 

J. J -5 










&SRB 




TEMP 


1614 


005600 


042700 


177761 




BIC 


I177761*TEMP 


1615 


005604 


004770 


006126 




JSR 


PC, 


POPADDRdEMpi 


1616 


«^05610 


004767 


000222 




JSF? 


PC, 


mnf 


1617 


005614 


010367 


174002 




HOY 


BL, 


tORD 


1618 


005620 


010267 


173774 


FLTXi 


MOV 


BH, 


HORO 


1619 


00S624 


022626 




CMP 


{SP}4, 




1620 


005626 


000474 






BR 


PWREGS 





1621 
1622 



fSAvF; ALL PKHS, 

» 

I 

f 

f 

I 

fPICKUP ADHR OF LOC, AFTER CALL, 

IPICKUP CODEID Bitt, 

ITF.ST FOR CALCHLATED CODES, 

I YES, USE THOSE INSTEAD, 

fSAVE A COPY OF TT, 

I TEST FOR FLECTION CALL 

J5K1P ADDRESS FORMATION 

tLEAVE THE ADDRESS MODE BITS, 

tMAKF INDEX FOR ADDRESS FORMAT^O^F ROUTINES, 

I SETUP "PXR" AS DATA POINTER, 

fGET THE DATA CAg«AC) 

ILOW ORDER 8 BITS 

ILEFT SHIFT 8 

IHIGH ORDER BYTE, 
ILET'S TRY THOSE CODES 
tSAVE POIhfTER FOR "PUT" 
ISETUP the FLOATING AC 
tut 
f 

fAGAIN, 

fMAKE AN EVEN TABIE ADDRESS 
f CLEAR LEFT HALF 
fDO THE OPERAXIOMi 
INORMALIZE IT, 
fSAVE RESULTS 

fDUMP THE POINTER AND THE COOES 
fRESTORE REGISTERS AMD RETURKI 
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1624 
1625 
1626 
1627 
1628 
1629 

16S0 
16SI 
1632 
16"^3 
t634 
163b 
1636 
1637 
1638 
1639 
I64ti 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1696 
1687 
1658 
1659 
1660 
1661 
1662 
1661 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 



005630 
005632 
005634 
005636 
0id5642 
005644 
005646 
005650 
005652 
005654 
005656 
005660 



005662 
005663 
005664 
005665 
005666 
005667 
005670 
005671 



005726 
011600 
010210 
016704 
000303 
110340 
1 10440 
100001 
005104 
000304 
001762 
104631 



126 
000 
162 
152 
172 
140 
200 
234 



f "FPPUT" 



PUTFl 



173754 



TST 


CSP ) + 




fir.wnHF RET!JR^^ FRO^ THIS O^F. , 


MOV 


asp f 


TEVP 


IGET I'HE POINIKR BACK 


MOV 


BHf 


@IKMP 


ISAVE HIGH ORDFH PART 


^OV 


RE, 


AH 


tCCPy "(BE)" FHH SAVF ANp TESTS, 


SWAB 


Bh 




fPOSTTION LOt' ORDER BYTES, 


MOVB 


BL# 




tf 


MOVB 


AH, 


«(TEMP) 


fSAVE HALF OF EXPONPWT, 


BPL 


.+4 




fTFST FOR ALL SIGN BITS, 


COM 


AH 




tt«« 


SWAP 


AH 




ICHECK HIGH ORDER EXP, 


BEO 


FLTX 




I0K«RETURM 


ERROR+201*12t 


♦ 12. 


fNOaFXP OVFR 38i 



fADDRESS MODFS 

INAD0RI .BYTE EMDIR •FLTDOl 

.BYTE FLTDOWFLTDOI 

'BYTE EMIMD •FLTDOl 

;BYTE EMTO •FtTDOl 

JbYTE EMTMR •FLTDOl 

;byte emime •fltdoi 

;bYTE EMREL •FLTDOl 

.BYTE NOP •FLTDOl 



005672 
005674 
005702 


011002 
062766 
000720 


000002 


000016 


EMDIRI 


MOV 
ADD 
BR 


PTEMP, 
12, 

FLTDOl 


PTR 

16CSP) 


>T0 THE PCI AND PICKUP "X" 
IMOVE PCI POINTER PAST DATA, 
iRETURM TO HANDLER, 


009704 
005712 
005714 


062766 
010002 
000713 


000004 


000016 


EMIMEI 


ADO 
MOV 
BR 


•4, 

TEMP* 

FLTDOl 


16C5P) 
PTR 


f THEN 

ICOPY ADDRESS OF DATA, 
1 INDEX THROUGH THE STACK, 


005716 
008720 
005724 


010602 
062702 
0007«7 


000022 




EMTO» 


MOV 
ADD 
BR 


SP, 
«22f 

FLTDOl 


PTR 
PTR 


1 INDEXES THROUGH THE STACK, 
IMOVE POINTER TO JOB, 
fQO USE IT, 


008726 
005710 
005734 


022222 
010266 
000703 


000006 




EMINDI 


CMP 
MOV 
BR 


(PTR)*# 

PTR» 

FLTDOl 


(PTR)* 
6CSP) 


lAUTO INDEX THE POINTER 
iCOPY AND UPDATE PTR, 
fCONTlNUF, 


005736 
005742 


016602 
000700 


000022 




EMTHRI 


MOV 
BR 


22(SP), 
FLTDOl 


PTR 


fUSE J^B AS THE ADDRESS, 
ICONTINUE 


009744 
005746 

005750 


061000 
010002 
000751 






F.MRELt 


ADD 
MOV 
BR 


tTEMP# 

TEMP, 

EMDIR*2 


TEMP 
PTR 


f COMPUTE ABSOLUTE ADDRESS, 
fUSE THAT RESULT, 
,G0 ^'OVE PC, 



ADDRfciSS FOLLOWS, 

»PTP« COftfTAINS ADDRESS, 

tCPTR)-f4) IS THE ADDRESS . 

STACK HAS DATA 

STACK HAS ADDRESS 

DATA FOLLOWS 

C(TFMP)) IS ADDRESS ■ (TEMP) 
BYTES ABOVE MUST BE LESS THAN 177, 
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U7f> 






1677 






1678 






1 ft79 












1681 


005756 


05^* (it 1 


J AR2 


0^55760 


0! ;i4fr 


lfi«»3 


055»5762 


01 A4 46 


1684 


005764 


010346 


16S5 


005766 


010246 


16fl6 


005770 


010146 


16(?7 


005772 


010046 


1688 


00R774 


010667 


1689 


006000 


000000 


1690 






16^1 






1692 






1693 






1694 


006002 


016706 


1695 


006006 


005067 


1696 


006012 


012737 


1697 


006020 


012600 


1698 


006022 


012601 


1699 


006024 


012602 


17«0 


006026 


012603 


1701 


006030 


012604 


1702 


006032 


012605 


17^3 


006034 


000002 


17^4 






1705 






17«6 






1707 






17«8 







173640 



173632 
173626 
000101 



i77S60 



PWRDWNi TST 
BNF 
MOV 
VOV 
MOV 
MOV 

wov 

MOV 
MOV 

MOP J HALT 



lAUTO»RESTART 

PWRUPI MOV 
CliP 
MOV 

PWREGSl MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

wmovi pTi 

IFOR DEBUGGING 
I TST 
I MOV 
I MOV 



WHOOPS fCHECK FOB POWfelR-rair or AI'TO-pPIlSTAHT, 

P«(Ri-'P I IF MOKi»?.fc;RO» THEN IT IS FOWKR^UP, 

%4, »(5F3 fSAVF 0w5, 

%3, s(SP) f 

%2f miS9) i 

%1» -CSP1 I 

%0# *»{SV) I 

5P, WHOOPS fFTWALLY SAVE THf STACK POINTER HIMSELF,** 



fSTOP THF PROCESS! F ALL-THRQLfGH FOR FAIliSAFE, 



'*'HOOPS, SP 
WHOOPS 
«10i» 
CSP)*, 
CSP)*, 
C3P)*# 
CSP)*, 
C5P5*# 
CSP)** 



fliTKS 
%0 
%1 

%a 

13 
%4 
%£» 



iRELOAO THF STACK POINTER 
I RESET THe SWITCH 

I RESTORE IMTFRRUPT ENABLE AND SET READER RUiv 

I 

I 

I 

f 

I 

IRESUME PROCESS AND RESTORE THE STATUS, 
lift 



WITH SINGLE STEP, (NOT REENTRANT) 
tSP)* fMOVE POINTER 

CSP)*# STATUS iRESTORE STATUS 

••6CSP), PC pLET THIS INST BE EXECUTED, THEN TRAP, 
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1710 






171 1 






1712 






1713 




Pf^5702 


1714 


06)6f140 


00 1 002 


1715 




f'05703 


1716 




001452 


1717 




005367 


1718 


fA fA ^ fit ar O 

006052 


006 303 


1719 


WW6054 


006102 


179?^ 


'"06056 


1 02405 


1721 


006060 


100372 


1722 


fit Hi ^ t ^ 

»436062 


032702 


1723 


006066 


001 367 


1724 


006070 


000261 


1725 


006072 


006002 


1726 


006074 




1727 


006076 


003267 


1728 


006102 


062703 


1729 


f706 106 


005502 


1710 


0061 10 


■ n f"! 4 *i A 

102770 


17"* 


We 13c 




1712 






1733 




010167 


1734 


006120 


010402 


1735 


006122 


010503 


1736 


006124 


000207 



173544 



077777 



173514 
000200 



173476 



NORFl 



N0PM2I 



NORMDt 



GETFl 



TST 
RNE 
TST 
BEQ 
DEC 
ASL 
ROL 
BVS 
BPL 
BIT 
PNE 
SEC 
ROR 
ROF 
INC 
ADD 
ADC 
RV5 
RTS 

HOV 
WOV 
MOV 
RTS 



OPERATION, 



fTEST FOR ?.fc;PO 

I OBVIOUSLY THtRK SO StiTfT 

ICHECK LO*.' PART, 

f RESULT IS ZFROI 

IROTATF T.KFT FOR THF TEST 

ITAKE CAPE OF 2"r)0NE CASFSi 

f0,lXXX l^'l 

|1,0XXX |V«1 

»0,0 TEST 

|1,100,XXX»? 

lYES-NEG, POWER OF 2 
fRESTORE Tf^ PROPER PLACES, 

f * • t 
f 

»ROUWD 



fRFTURN 

ICOPY THE OPERAND, 
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1718 












17"?^ 




P*06 1 1 4 




OPADDH t 


GETf 


1 740 


2' «? 6 1 3 


0062 30 






ADDFF 


1741 


WW 61 32 


00625! 






SUBFF 


1742 


006 1 "54 


006b6b 






DlVFF 


1743 


{^061 36 


0064/6 






MUtFF 


1744 


iJ06l40 


006650 






POWF 


1745 


2* 6^6142 


005610 






PUTF 


1746 


006144 


00622^4 






NORX 


1747 












1748 


006146 


006366 




FMAODR 1 


TNTY 


1 749 


006150 


006330 






INTF 


1 750 


W06152 


006532 






5GNF 


1751 


^06154 


006556 






ABSFF 


1752 


006156 


006562 






WEGFF 


1753 


006160 


007542 






RKADF 


1754 


006162 


007012 








1755 


04^6164 


006356 






INTZ 


1756 












1757 


006166 


062706 


000006 


MUTjZi 


ADD 


1758 


*'e6172 


005067 


1 73420 






175^ 


006176 


00S002 






CliR 


1760 


006200 


005003 








1761 


006202 


000207 






RTS 


1762 












1763 


006204 


116601 


000004 




MOVB 


1764 


006210 


042701 


177770 




BIC 


1765 


006214 


006301 






A SI, 


1766 


006216 


000171 


006146 




JMP 



friiOATlNfl POT^T npFKATCH HA^HLERS. 



f FLOATING POINT rUWCTlOW HANHLFHS 



#6, 

BE 
BH 
BL 
PC 



5P 



AC 
AC 



4CSP), 

»sl0, 

AC 

ftFNADDRCAC) 



I LOOK WHO IS HF.Rt:i 

I USE FUNCTION CODfcIS TO 

IFORM WORD ADDRESS TABLF AND 

IJUMP TO THE FU?3CTI0M PROCESSES, 
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17AR 








1769 








1770 








1771 








1772 


4*6224 






1773 


i!'''*6226 






1774 








1 775 








1776 








1777 








1778 








1779 








17«0 








1781 








1782 








1783 








1784 








1785 








1786 








1787 








1788 








1789 


006310 


00S704 




1790 


0062S2 


00145S 




1791 


006234 


00S702 




1792 


006236 


001726 




1793 


006240 


012700 


00161 6 


1794 


006244 


161001 




1795 


006246 


003410 




1796 


006250 


022701 


000036 


1797 


006254 


003423 




1798 


006296 


006202 




1799 


006860 


006003 




ium 


006262 


005210 




1801 


006264 


005301 




18($2 


006266 


003373 




ISfl) 


006270 


022701 


17774J 


1804 


006274 


002104 




18{>l6 


006276 


006204 




1106 


006300 


006005 




1807 


006302 


009201 




1808 


006104 


003774 




1809 


006106 


006202 




1810 


006310 


006003 




1811 


006312 


00S210 




1812 


006314 


060503 




1813 


006316 


005502 




1814 


006320 


060402 




181S 


006322 


000471 




1116 








1817 


006324 


060110 




1818 


006326 


000674 





lirt_iMTM\MEH!TAL Fl<OATIMG POINT ROIITTNKS 



SUBFF! NEd 
SBC 



AH 
AL 
AH 



ISUHTRACT hO¥ ORHLR, 
)SUHTRftCT LOW CARRY, 



lAT.lGN AND ADD ROUTINE 



lIF A«0 i USE B 
PIF B«0 , USE A 
)S£T AC"X C A ) ""X ( B ) 

fIF {XCA)wXCB5l>30,, USF. LARGER OF XfA5 OR XfB5 
JSET A»A/2 



ADDFFI 



i/2 




<», 


GO 


ADD 


a 


If SET 


AC*AC* I 1 




If SET 


AC"AC* * p 




TST 


AH 




BEO 


iNTi 




T8T 


BH 




BEQ 


VifcTr 




^'0V 


ion $ 


frCuD 


SUP 


PTPH" f 


Av 


BLR 




ALIGNA 


CMP 


130, » 


AC 


BLf 






ASF 




RH 

on 


BOH 




BL 


IMC 




8ff:NP 


DEC 




AC 


BST 




ALIGNS 


CMP 


*«29|f 


AC 


Bdt 




AL6ZA 


ASP 




AH 


R09 




AL 


INC 




AC 






,»6 


ksn 




BH 


POP 






INC 




fiTEMP 


ADD 


AL, 


BL 


ADC 




BH 


ADD 


AH # 


BH 


BR 


ALGZA 




ADD 


AC» 


8TFMP 


BP 


GETr+4 





ITEST TOP A«0 
pUSE B 

fTEST FOR B«0 
I USE A 

ICREATE EXP, POIMXER, 

ICOMPARE EXPONENTS 

lAND SAVE COUNT, 

fTEST FOP POSSIBILITY THAT 

|A IS TOO LARGE "USE A, 

ISHIFT DOUBLE B TO 

ITHE RIGHT AND ADD TO 

I THE EXPONENT 

ICOUNT THE SHIFTS 

fTEST FOR REPEAT (AC>0) 

fTEST RELATIVE SIZE 

|B IS TOO LAPaE ■ EFFECTIVE ZERO A, 
f SHIFT OVER 

[count shifts 

prepeat until extra 1 done, 

fgive an extra shift 

i to the result to 

t avoid overflow, bump the exp, 

p LEAVE RESULT IN B, 
fADD THE LOW ORDER CARRY 
fFINISH W/0 OVERFLOW CHECK 

f RETURN FOR NORM, ETC, OF SMALTj niFFEKENCES, 
> 

pCORRECT THh; EXPONENT 
pGO COPY THE DATA 



FOCCT,0| 



ni0i 



PAGE 44 



1821 

1822 fFPIWT CPE,BH 

1B23 



1824 


B06 3 30 


^ J 2701 




I MTF 1 


MOV 


1825 




f 0571 1 






TST 


1826 


f%. tit ^ 4 "ft 

F»06336 


003407 






BLF 


1827 


f 063459 


022711 


000037 


INTGl 


CMP 


1828 


006344 


003406 






BLE 


1829 


006346 


006202 






ASR 


1850 


006350 


006003 






ROR 


1811 


^'06152 


0052! 1 






INC 


1812 


006354 


000771 






BR 


1833 












1834 


006356 


004767 


177610 


INTZl 


JSR 


1835 


006362 


010366 


000010 


IMTXl 


MOV 


1836 


006366 


000207 




INTYl 


RTS 


1817 








! 




1818 


006370 


062706 


000012 


EEROOMi 


ADD 


1839 


f*06374 


00061 1 






BR 


184^ 












1841 


006376 


007073 




XABSl 


FPA8S 


1842 


906400 


000207 






RTS 


1841 












1844 


006402 


007072 




XSGNi 


FPSGN 


1849 




/3II3I n ^ ja W 

0B0Z07 






RT5 


1846 












1847 


006406 


016746 


173206 


XITRi 


MOV 


1848 


006412 


007073 






FPABS 


1849 


006414 


007071 






FPINT 


1890 


006416 


005726 






TST 


16S1 


006420 


10000i 






BPti 


i8B2 


006422 


007074 






FPNB6 


1893 


006424 


000207 






RTS 



.FJl,5a> Cil,,BH) 



PC, 



AC 
aAC 

PAC 

TNTX 

Bh 

BL 

(SAC 

TNTG 

MORMZ 
8, CSP) 
PC 



fCRfciATF: KXP, fQr'TF:H 
fMAKRS « I?.rTO A'^ 
lIMTEOFR BilT LFAVES 
fTHE EXPONENT CORRECT , 
IMO CHANGE POSSIBLE NQW, 
fBRlMG IN SIGN BIT LFFT, 
f ROTATE DP UNTIL 
fTHE EXPO^JENT COMTAIMS 
Ml DKCIMAT,, 
» 

ILEAVE ZERO RESULT 

fCOpy IMTO THE Cf^PY OF "AC" 

I RETURN ONE MORE LEVEL 



tl2, 

PWREGS 



SP 



fDUMP »BHI , «R5» , 'RSt , tpTRf , 
I GO RESTORE REGISTERS, 



AND 'CODES' 



PC 



> SIMPLE CALLS FOR SIMPLE FUNCTIONS 



PC 



HORD, ii{SP5 ISAVE SIGN 

fABS, 

tSP)« 
• ♦4 

PC 



'.MATM, MACyili620 !9»HAR-73 PAGE 45 



!§55 








>THK FOLLOWING THRKt PAGFS CONTA 


f 856 












!857 
















1P58 








I C2 W0RD5*f 2 


WORD) MULTIPtiY POMT 


1659 








1 (TEMP, 


ACBH, 


BL)»CAH,AL,) 


s>fkS,0,B' 


1060 
















1861 
















1862 


006426 


004767 


000302 


MULFFI 


JSP 


PC, 


SIGN 


1869 


006432 


001655 






BKO 






1864 


006434 


006202 




MDP0t 


ASP 




BH 


1865 


006436 


006003 






POP 




BL 


1866 


006440 


103003 






BCC 




',♦10 


1867 


006442 


060501 






ADD 


ALf 


AC 


1868 


006444 


005500 






ADC 




TKMP 


1869 


006446 


060400 






ADD 


AH, 


TEMP 


1870 


006450 


006000 






POP 


TEMP 




1871 


006452 


006001 






POP 


AC 




1872 


006454 


005916 






DEC 




9SP 


1873 


006456 


001366 






BNE 




MDP0 


1874 


006460 


010002 




SIGNDI 


MOV 


TEMP, 


BH 


1875 


006462 


010103 






MOV 


AC, 


BL 


1876 


006464 


162626 






SUB 


C3P)*# 


(SP)* 


1877 


006466 


100003 






BPl. 


BDIVX 




1878 


006470 


005402 




NEGXt 


NEC 




BH 


1879 


006472 


005403 






WE6 




BL 


1880 


006474 


005602 






SSC 




BH 


1881 


006476 


062703 


000001 


BDIVXI 


ADD 


11, 


BL 


1882 


006502 


005502 






ADC 


BH 




1881 


006604 


005726 






TST 


(SP3* 




1884 


006506 


010305 






MOV 


BL, 


AL 


1885 


006510 


010204 






MOV 


BH, 


AH 


1886 


006512 


100003 






BPt 


ALGZB 




1887 


006514 


005404 






NEG 


AH 




1888 


^06516 


00540S 






NEC 


hh 




1889 


006520 


005604 






88C 


AH 




1890 


006522 


001002 




ALGEBt 


BNE 


,♦6 




1891 


006524 


000308 






SHAB 






1892 


0065S6 


001621 






BEQ 


nomt 




1191 


006530 


000207 






RTS 




PC 


1894 














• CSP) 


1895 


006532 


010241 






MOV 


BH, 


1896 


006934 


001763 






BEQ 






1897 


006536 


012767 


000001 


173052 SGffli 


MOV 


•1, 


BE 


1898 


006S44 


012702 


040000 




MOV 


140000, 


BH 


1899 


006550 


005003 






CljR 


BL 




1900 


006552 


005716 






TST 


isp 




1901 


006554 


000744 






BR 


NEGX»a 




1902 
















1903 


006556 


005702 




ABsrpi 


T«T 


BH 




1904 


006560 


100363 






BPL 


SGNFW2 




1905 


006562 


004767 


177702 




J8P 


PC, 


NE6X 


1906 

















fCOMPUTE SIGN OK HESULT AND SAVE, 
f RESULT TS ZERO IF A IS ZERO, 

)f •* 
f f tt 

INO CAPRYbNO ADD 
fUPDATE THF RESULT 

IPUT IT DOWN ONCE, 
tftf 

ICOUNT BITS, 
IREPEAT, 

ICOPY THF RESULT, 
flit 

IRESTQPB THE SIGN OF 
>THB RESULT, 

ILEAVB A NEGATIVE RESULT 

f t t 9 
t • • • 

» ROUND 
I f •• 

fDUMP OLD RETURN ADDRESS COR DATA SAVED) 

iCOPY RESULT 

I TO TEST SIZE, 

pTAKE ABSOLUTE VALUE, 

t ■ f • 

I • * • 

ICHECK FOR HIGH ORDER WORD NOT EERO, 

ICHECK FOR LOW BYTE NOT ZERO, 

IMAKE ALL ZERO RESULT, 

I AND GET BACK TO THIS LEVEL, 

t 

ISAVE HIGH ORDER PART, 
fSIGN OF ZERO IS ZERO, 
fCREATE A FLOATING ONE, 

* f • I 
I**, 

ITEST THE SIGN OF STACK ENTRY. 

IGO TEST FOR RESULT, 

> 

fTEST B AND PUT DUMMY ON STACK, 
pGO USE OTHEP BRANCH, 

IDOES NOT RETURN HERf>nu>*MY 0^ STACK, 
I 



'.MAIM, J >CYll,620 !9»MAR»73 I3l0i PAGE 46 
rOCGT.I 



19^8 














19^9 






t£4 W0RD)/(2 


•WORD) DIVIDE ROUT 


1910 






» (0,0,BH,Bl,3/(AH,AL)=> 


f3H,BLf i 


1911 














1912 




0f5 5 4 1 


DIVFPI 


MEG 


AC 




1913 


006570 


0052^1 




XNC 


AC 




1914 


ww6572 


0P'i767 000136 




JSR 


PC, 


SIGN 


191S 














1916 


006576 


00! 421 




BED 


DIVZER 




1917 


006600 


180503 


DIFLl 


SUB 


AL# 


RL 


1918 


006602 


005602 




58C 


BH 




1919 


006604 


020204 




CMP 


BH# 


AH 


1920 


006606 


100403 




BMI 


,♦10 




19J1 


006610 


160402 




SUB 


AHi 


BH 


1922 


00661 2 


000261 




5EC 






1923 


00661 4 


00^403 




BR 


', + 10 




1 9?4 


0066 1 6 


060503 




ADD 


AL, 


BL 


1925 


006620 


005502 




ADC 


BH 




1926 


006622 


000241 




Cl»C 






19?7 


006624 


006101 




POL 




AC 


19?8 


006626 


006100 




POL 




TEMP 


1929 


006650 


006303 




ASL 




BL 


19|0 


0066J2 


006102 




ROt 




BH 


19SI 


/XfS A £ 4h it 

v0o634 


005316 




DEC 




9SP 


1932 


006636 


001360 




PHE 


DIFL 


1933 




itm ff ^ fit t 

000707 




BR 




8IGHD 


19S4 














1955 


006642 


104635 




ERROR#20U14.ti4l 


4 A £ 

1936 














19S7 














1938 














1939 














1940 






flNTCefR EXPONEMf CAliCULATlOMS 


1941 














1942 


006644 


006204 


powrii 


ASR 


AH 




1943 


006646 


009201 




INC 


AC 




1 944 


flifll A C K A 


022701 000017 




CMP 


#13,, 


AC 


i94S 


A Ji ^ M J 

006694 


103426 






PERRO 




1946 


006616 


001172 




BNE 


powri 




1947 


tAi3k » ^ m tA 

006660 


010446 




MOV 


AH* 


• (SP) 


1 948 


006662 


100421 




IMf 


FERRO 


1949 


006664 


001724 




BEO 


SSNl 




1950 


006666 


010246 




MOV 


BH, 


•<SP5 


1951 


006670 


001 637 


PONSi 


BEQ 


ZERODM 


1 9S2 


006672 


016746 172720 




MOV 


B£, 


• CSP) 


1953 


006676 


010346 




MOV 


BL, 


• CSP) 




(KtAt. lam 


P'l 260S 


POWOOl 


MOV 


(SP)*, 


AL 


< A iC K 

1955 


w«3670« 


012601 




MOV 


(5P)+, 


AC 


4 A le £ 




^12004 




MOV 


CSP5*# 


AH 


1957 


00^706 


00"i 11 6 




DEC 




lasp 


19S8 


006710 


001672 




BEQ 




RDIVX 


195^ 


-0!ifi71 2 


010446 




MOV 


AH, 


-CSP) 


I960 


006714 


010146 




MOV 


AC, 


*CSP) 


19ftl 


006716 


010546 




MOV 


At., 


• (SP) 



TAKE DIFFERFNCK OF EXPOMK^'TS 
PLUS ONE, 

MAKE SIGN OF RESULT ABS, VALS, 

ADO TEMP+AC, ADD WITH COUNTER 

DIVIDE BY ZEROi 

USE A TEMPORARY RESULT 

MAKE A TRIAL RUN 

COfiTINUE THE ILLUSION 

compute intermediate value, 
branch if nowactual carry, 
n0«60»update high 
nohgobupoate low 
set up the carry date for rotate 

SKIP 

DUMP TRIAL RESULT+CLEAR CARRY 

ROTATE ALL 

ROTATE ALL 

ROTATE ALL 

ROTATE ALL 

COUNT 

REPEAT THE LOOP 
GO DOCTOR THE SIGN 

DIVISION BY ZERO NOT ALLOWED, 



rREDUCE TO INTEGER 

fCOUNT SHIFTS 

flEST FOR RANGE Of POWER 

fOUT OF THE RANGE, FRACTIONAL 

I GO TAKE INTEGER PART OF A, 

I SAVE THE COUNT CCOULD BE ZERO) 

ITEST FOR NEGATIVE POWER; 

UNITIALIZE MULTIPLICAND TO ONE 

I COPY THE BASE 

I DON'T LET FPMUL SEE ZEROi 

I SAVE EXPONENT OF THE BASE 

rlNTO ARGUMENT POSITION 

I RESTORE EXP, OF THE BASE 

Iff 

(*., 

ICOUJ^T ON THE STACK, 

IFTNISHEDJ 

I SAVE FXP 



'.MAIN, MACYil,620 19»MAR"73 ISI01 PACK 46»1 
FOrGT,002 

19(12 004767 177122 JSR PG# 

1963 006724 004767 177476 JSP PC, WU!,KF 

tQ«4 006730 000763 BR POWDO 

1966 006732 104637 FEPROI ERROP+201 +1 5 , +15 , 



INORMALIXE FOR ACC'!RACY. 

fMULTlPLV OMCE 

IRFPFAT 

f 

iTrtO IjAHCZ OR VEGATIVf-J P-^aFHI 



'.MAIW, / "Yll,620 19<.MAH«»73 13101 PAGE 47 

1968 
< 9*9 

1971 fCOMPUTE SIGN OF RKSHLT TOR MUL/MV, 

1972 

1973 lALSO SAVE THAT SIGH ON THE STACK, 

1974 



197B 


006734 


5^1 0246 




SIRNl MOV 


BHi 




ifim SIGN OF RESULT 


1976 


006716 


754 




REQ 


POWS 




» RESULT IS ZERO If 3 IS ZERO, 


1977 


006740 


042716 


077777 


BIC 


#077777 




IAS THE XOR OF ARGUMFNT'S 


1978 


006744 


060416 




A DP 


AH( 


asp 


»STGNS| 


1979 


006746 


060167 


172644 


ADD 


AC, 


BE 


fCOMPUTE EXPONENT 


1980 


006752 


00S000 




CLR 


TEMP 




ICLFAR THE HIGM SIDE OF MUL-OIV 


1981 


006754 


005001 




CliR 


AC 




ti«« 


t ft A Q 

l9SZ 




li'i 2746 


nvwv 3 1 


u A 

MOV 




* CSP5 


iCREATE BIT COUNTER 


1993 


006762 


005702 




TST 




BH 


ITAKP ABSOLUTE VALINES 


1994 


006764 


002003 








. + 1^ 


ITAKE ABSOLUTE VALUES 


19«S 


006766 


005402 




mc. 




BM 


JWEGATE B 


19P6 


006770 


005403 




MEG 




BL 


f!»?EGATE B 


i9«7 


006772 


005602 




SBC 




BH 


!!?EGATC B 


1988 


006774 


005704 




TST 




AH 


fTEST SECOND ARGUMENT 


1989 


006776 


002003 




BGE 




.*10 


ITEST SECOND ARGU«FNT 


1990 


0070»0 


00S404 




MEG 




AH 


1 NEGATE A 


1991 


007002 


005405 




NEG 






1 NEGATE A 


1992 


007004 


005604 




SBC 




AH 


1 NEGATE A 


1993 


007006 


000176 


000004 


JMP 


@4esp} 




>G0 BACK 



FOC6T|002 



1991 








19^6 








1997 








1998 








1999 








20190 








7mi 








30«2 
















2004 


007012 


005046 




20«B 


007014 


012704 


000040 




007020 


005702 




20«7 


007022 


003004 




20«8 


007094 


001431 




20<»9 


007026 


007074 






0070S0 


062704 


000015 


Sffll 


007054 


012701 


001616 


2012 


007040 


005216 




2P»ll 


007042 


021127 


000004 


2014 


007046 


009411 




9015 


007050 


003004 




9016 


007082 


126727 


179943 


9017 


007060 


00941 3 




2018 


007062 


007048 




2019 


007064 


06437S 


063146 


2090 


007070 


000763 




2091 


007072 


005711 




2072 


007074 


003008 




2093 


007076 


005316 




9094 


007100 


007045 




202S 


007i02 


000004 


090000 


9096 


007106 


000789 




9097 








9098 


007110 


005046 




9099 


007112 


104604 




2010 


007114 


012702 


001612 


20S1 


007120 


012700 


000007 


9012 


007194 


007061 




9013 


007126 


007071 




90S4 


007110 


010146 




2015 


0*7132 


007074 




90S6 


007134 


007011 




90S7 


0071)6 


007040 


007102 


90)9 


007142 


009300 




2019 


007144 


003367 




9040 


007146 


005046 




2041 


007190 


116616 


0000)6 


9042 


007194 


012746 


177400 


9041 


007160 


A nit A A 4 




9044 


007162 


007045 




9045 


007164 


000016 


062000 


9046 


007170 


007071 






Aam « •» 

K/v r 4 r * 






9048 









IFLOATING POINT OUTPUT CPNVEPSfOW fUMCTION 
» CRE«ENTPANTJ3 

iFORMAT PATA IS TAKEN FROM "PTR" 

ITHIS PAGE PPODUCISS A 7 PIGIT STRING PLUS LEADING f.EROS, 



00Bi9» 



rRNTr 1 


CLP 


»(SP) 






MOV 


• 40f 


CHAR 




T5T 




BH 




bgt 


FLQSGN 








rOG03 






FPNEG 








ADD 


#15, 


CHAR 


r uUOViN 1 


MOV 


ffBE, 


AC 




INC 


9SP 




FOGOll 


CMP 


9 AC, 


#4 




BLT 


F0C02 






BGT 


PTEf«»2 






CMPB 


HHORD, 






BtiT 


F0G03 






rPMUL*IMMED 




PTEN 1 


0643751 


063146 






BR 


F000l«»2 




FOGOZ i 


TST 


9 AC 






BGT 


F0G03 






DSC 


9SP 






FPMUL+IMMED 




f IPM t 


4*50000 








BR 


F0601 






CLP 


• CSP) 






PRINTC 








MOV 


IFLARG, 


PTR 




MOV 


#7,, 


TEMP 


vnf^iM. 1 
r Uuu* 1 


rPPUT*IPTR 






PPINT 








MOV 


AC, 


*(SP) 




FPNiG 








rPAOD*IPTR 






FPMUL*01RBCT,TEN 




DEC 


TEMP 






BGT 


F0G04 






CLP 


• CSP) 






MOVB 


36fSP5, 


•SP 




MOV 


#177400, .CSP) 




FPGET+FR0M*8TACK 




FPMUL+IMMED 






16,062000 






FPINT 








CL08E+STACK 





fOPEN PLACE FOR EXPOMENT OF TEH, 

f SETUP LEADING SPACE 

I TAKE THE ABSOLUTE VALUE 

IPRINT SPACE FOR POSITIVF NUMBER, 

IPRINT ALL ZEROS 

I NEGATE THE NEGATIVE FLAC 

ICREATE MINUS SIGN 

ICREATE POINTER TO EXPONENT 



f REPEAT 



I TEST RANGE FOP 0»4 
lEXTRA HOLE FOR CARRY, 
fPRlNT SIGN, 
I SET TEMPORARY POINTER 
ISETUP 7D COUNTER 
IROUND LSB AND SAVE 
IGET THE DIGIT 
f STACK RESULTS 
tREMOVE THE DIGIT 

PAND DIG OUT THE NEXT DIGIT , 
KOUNT DIGITS 
lAND TRY AGAIN 

lOPEN SPACE FOR FORMAT DATA CVIA "PTR") 
fGET DECIMAL PART OF %X.0Y, COLD »PTR"3 
lADD CORRECTION FACTOR, 

fCOMPUTE THE FRACTION 
f SCALE STEP NOS, BY 
f 100,X9*7 
I • •• 

f RESULT IS IN «AC" 



I NO MORE CALLS TO FLOAT, 



.MAIM J- '<ACY11,6?0 
FOPCM 



19-MAR-73 13101 PACE 49 



20*; 4^ 

9(^56 

2S'M 

2058 

2059 

5060 

20§1 

2062 

2063 

20$4 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2096 

2096 

2097 

2096 

2099 

2100 

2101 

2102 

2103 



jCOMputf: the l,5,d, position 



307174 
007176 
007202 
007206 
007210 
007212 
007214 
007216 
«907220 
007224 
007226 
007230 
007232 
007234 
007236 
007240 
007242 
007244 
007246 
007210 
007252 
007254 
0072S6 
007260 
007262 
007264 
007266 
007272 
007274 



007276 
007300 
007502 
007J04 
007310 
007314 
007316 
007322 
007324 
007326 
007330 
007332 
007334 
007336 
007340 
007342 
007344 
0073S0 
307394 



r 1 V.' \J rf J 






r U V 




RD 


1 1 fiftPJ 






MOVB 


35 f SP) t 


F 


Pi 1 fi ft 9 


^ ' ' '/t 9 01 
t'? j5 IP 




U A «r 


20 CS»P3 # 


E 








rMp 


ft 


AC 










,♦6 










MOV 


F# 


AC 


rj 3 W i 






DEC 


AC 




1. f' i vt t 






MOV 


ACf 


CHAR 








MOV 


• 6# 


P 








#f tin 

CMP 


F# 


E 


00200 1 

C V * V* If.' ^ 








• ♦4 










CLR 


r 




00S703 








F 




001 411 








TOF 




I ' 17 (6 «/ * 






ADD 


E# 


AC 


* t# ID * 






CMP 




AC 


009001 






B /'III . 


TOG 




W 1 ¥7 3 W 1 






MOV 


^9 


AC 






TOG 1 


in u M 

CMP 


ft /9 

ACr 


P 


002003 








TOF 




01 011 am 






U A W 


AC* 


P 


002001 






BCE 


TOF 




00S000 






CLn 


P 




010001 




TOFi 


MOV 


p . 


iff 


005100 






COM 


P 




006300 






A St 


P 




012746 


000016 




MOV 


116* 


■ (SP) 


060516 






ADD 


R8, 


ISP 


061600 






ADD 




p 






IROUND 


THE B,C 







00S215 
020900 
001002 
062715 
022715 
003003 
162725 
000769 
005729 
020900 
001769 
021609 
003373 
001402 
005202 
005201 
004767 
062706 
000547 



000001 
000012 

000012 



TOT I 



TORI 



TOSt 



000006 
000024 



INC 


9R5 




CMP 


R9f 


P 


BNi 


TOR 




ADD 


• 4* 


9R9 


CMP 


•10|» 


iR9 


BflT 


TOS 




SUB 


ffi0,i 




BR 


TOT 




T«T 


CR9)* 




CMP 


RS# 


P 


BEQ 


T0R«4 




CMP 


88P, 


R5 


BGT 


TOS 




BEO 


t«6 




TNC 


F 




INC 


AC 




JSR 


PC, 


FPRNT 


ADD 


• 24, 


SP 


BR 


FI604 





fSTART PrivTFR 

tCOPY TOTA! 'DIGITS RfTQHE.STFD, 

IDIG UP THE MlfMRFH OF INTEdF.R DIGITS COMPUTED, 
ICORRECT F<^R IT-LOGICAL RKQUESTS 
rOF DECIMALS > FIELD SIZF, 

tti« 
f AC«Fw! 

fUSING E FOHMAT? 

UNIT, SIX DIGIT OUTPUT, 

I ENOUGH SPACF? 

fSKlP TO Yf.S, 

|N0, USE E FORMAT, 

fASK QUESTION 

fYES, MOVE AHEAD, AOK, 

»D*E 

»F < D*E? 

|I,E, ENOUGH SPACE? 
Ikm DIGITS VISIBLE? 
fMUST BE LESS THAN SIX, 
IKEEP 6 IN P, 
fYES, ROUND TO D*E 
lYES, USE P 

»N0, ROUND LEAD DIGIT, 

fSAVE no', OF AVAILABLE DIGITS 

}P ■ •(P+n TO ROUND 

f COMPUTE WORD INDEX TO +5 ROUND, 

I INDEX FOUND 

> COMPUTE END ADDRESS 

ICOMPUTE *5 ROUND ADDRESS, 



>rUD6g FACTOR 

I SPECIAL ROUNDUP FACTOR 

I TEST FOR THERE ALREADY 

I ROUND BY «4 (DON»T CHANGE THSI TO SO 

> OVERFLOW CAUSE 

tSKIP IF OK 

tCORRECT FOR OVERFLOW 

»AND CARRY 

IBUMP THE POINTER, 

ITEST FOR ROUNDOFF START 

»G0 DO IT, 

I TEST FOR END, 

IREPFAT 

fSKlP IF m CARRY ONE, 

I UPDATE "E" 

lAWD FIELD SIZE, 

ICALL OUTPUT ROUTINE 

tCORRECT STACK 

I AND RETURN TO TOP LEVEL, 
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1 
















9 4 aft 








1 FT 5f rn 


POIMT OUTPUT FORMAT 




















f J O 


t/ 1 r? ■! IT? K/ 




FPRMT 1 


MOV 




p 




r/V § J O 


0)0 14^1 






PEQ 






/ 1 1 K" 


M # 3 O * 








SUP 


CHABf 


P 




1/ f ■# v3 " 


020002 

iK T' * 






CMP 


Pi 




9 4 19 


w r ^ w 








PiGE 


fPRNTF 




911^ 

ell* 










MOV 


ft 


p 


9 1 1 A 




090901 






CMP 


E# 


F 


9 4 4 K 

c 1 1 O 


flC!7 t7 4 


0)0) 1£!l9*t 






BGT 


FLOUT 




9 4 4 fi 


n0749£ 


00m 010)4 




irpouifU 1 


CIjP 


CHAR 




9 4 4 "} 


r 9 IP IP 


CI20I00>2 

rf ii «7 T/ |p? 






CMP 


P» 


F 


9 4 4 fi 




riy) jv 1.^ 






POT 




FXRX 


9 4 4 Q 










DSC 


E 




94 901 


Iw V f ^ v/ w 


9/ V d J V |k 






DEC 


AC 




Km 

« J 21 


01019 4 4 <M 


0)0194011 






BLT 


LTEERO 






0)0741 9 


04 4804 






MOV 


«»CR5)# 


CHAR 


9 4 41 


01(11741 4 


0014747 


0004 4 9 

V V V 1 J « 


u * u r* w ■ 


JSP 


PC# 


PRNII 


9 1 9A 


1^ V f ^ 4C 


009303 






DEC 


r 




9 i nK 

7129 


007499 


001446 






BliE 


DXIT 






0)017494 
10107924 








DEC 


P 






00749 A 


001 lAl 






BNE 


FPRNTP 




9 4 nfi 




1 a44K6 






PRINT* 


*. 




91 99 


007419 


000761 






BR 


rpRMTP 




3110 
















21$1 


007434 


020027 


000001 




CMP 


p» 


11 


2132 


007440 


003768 






BLE 


LTEERO 




2133 


007442 


012704 


177760 




MOV 


I40«60| 


CHAR 


2184 


007446 


000762 






BR 


tTEERO 




218B 

















USK LARGER (^K F«D OR F 

TEST FOR FLOATING P^IVt FOR^'AT 

COMPUT!:: IK'TFGFR PT^ACKS RF.DUESTEn 

FORMAT OK? 

YES, GO 00 IT, 

SHIFT DECIMAL POINT RIGHT 

BUT NOT TOO FAR I 

GO USF "E" FORMAT ANYWAY, 



TEST DISTANCE TO DOT, 

GO I-INE UP A DIGIT 

COUNT DOWV INTEGER DIGITS 

COUWT DOWM STRING DATA, 

PRIWT TRAILING ZERO 

GET AN ACTUAL DIGIT 

OR A REAL DIGIT, 

COUNT DOWN THE FIELD, 

BRANCH IF END OF DATA FORMAT, 

COUNT DOiiilN DISTANCE TO DOT, 

THERE YETf 

YES 

CONTINUE 

PRINT AT LEAST 

Or'a LEADING SPACE 
I • t 
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21 37 








IFLOATING POINT 


OUTPUT 


FORMAT 


2i 38 
















91 39 


i?'^7450 


010246 




FLOUT 1 


MOV 


F» 


••CSPl 


9140 




005002 






CLR 








00*^454 


^127«!0 






MOV 


n, 


P 


2142 


f^074e^f! 


012703 






vov 


#7» 


F 


21 43 


007464 


004767 


177706 




JSP 


PC, 


FPPf^TP 


2144 


007470 


1 04505 






PRINT+ 


«E 




2145 


007472 


c \ 2602 






WOV 


tSP)+# 


PTR 


21 46 


007474 


*i02003 






BGf 


PR!UTP'»2 




2147 


007476 


005402 






NEG 




PTR 


2148 


007500 


104455 






PRINT* 


i m 




2149 


0075952 


000401 






BR 


PRMTP 




2190 


007S04 


104453 






PRINT* 


»♦ 






007506 


104644 


000144 


PRNTPt 


DIGT5T, 


100, 




2192 


007512 


120427 


000060 




CMPB 


CHAR* 


#60 


2193 


007516 


001401 






BEO 


PRNT2 




2154 


007520 


104604 






PRINTC 








007522 


104644 


000012 


PRNT2I 


DIGTST* 


10, 




21S6 


00T526 


104604 






PRINTC 






21S7 


007530 


010204 






MOV 


PTR» 


CHAR 


2158 


007932 


062704 


000060 


PRNTi t 


ADD 


i60# 


CHAR 


2189 


007936 


104604 






PRINTC 






2JS0 


s'w7540 


000207 




DXiTi 


POPJ 






2161 
















2152 
















2163 
















2164 








»END OF 


OUTPUT CONVERSION ROUTINES 



fSAVF POWpR OF TFlvi FOR LATKR, 

f^.XXXX 

> * • t 

rFIFTJ) STZF 

tPRINT FIRST DIGIT GROUP 
|E+»XXX 

ILOOK AT EXPONENT AGAIM 
|G0 PRINT SIGN, 
ICORRECT E TO ABSOLUTE VALUK 
fPRlNT SIGN, 

IFALI. INTO DIGIT PRINT ROUTINE, 
f 1*1 

rPRINT 2 OR 3 DIGITS 
lt». 

f IGNORE FIRST ZERO, 

IPRINT 2 DIGITS FOR SURK 
f f 

iPRlNT LAST DIGIT 

fill 

fill 

fAND RETURN, 
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rocr.T,002 

2166 

21fi8 j»FRFAD" 

ll^l I FLOATING POINT INPUT COWFRSinN FV^C 

2J71 f CPEpFNTRA^-'TI 

2172 .^^„„ 



? 1 7 J 


Vt/ 1 t £ 


at f^t.a'i 

f 1 O D W J 


r? 1/ V * 


REAOF t 


MOV 


14fSP3# 


AXOUT 


2174 


W 1 ^ HO 




AAA1 %IA 

V IP A J i:? 




JSP 


PC# 


DECONV 


2175 


v ' ^ * 


IJ J If • 






CLR 


PTR 




2 1 7fr 


W / J ? "t 


i t V t /. f 


¥/ 1/ T ' W J O 




CMPB 


CHARf 




2177 


vv f 3 O ri 


WiD 1 VYii 






BNE 




FIGOl 


2178 


^Ct ? S C 9 


r'V ^ / O / 


AAAl 34 

W K/ V * J 




JSP 


PC, 


DfcCONl 


2177 


W f 






FIGOl f 


MOV 


PTR# 


• CSP5 


2180 
















2181 


«'B737B 


1 19?A7 


AAA A9 A 


k f * 1/ J .1* 


BITB 


#NALPHA, 




2182 




0101 1 4 4 7 






BEQ 


FIG02 




2183 


Vv / O^B 


i 'iad'97 


AAA 1 A4 




CMPB 


CHAR, 




2184 




n V 1 (/ 1 V 






BNE 




fIG02 


2188 


01017 An A 

ID W f o w o 


AA7 AAA 


A01fil 2 




fpput+direct* 


FLARG 


2186 


01 fill C I 9 


1 AAA 4 A 






GETC 






2187 


01 Cl^ £ 4 A 
WvT J * 


AA A7 A7 






JSR 


PC# 


OECONV 


2188 




AA<t7 A1 






T5T 


AC 




2189 


Oimt A n 1 
ww7oZZ 








BMI 


,♦4 




21*0 


f o « * 


AA7a7 A 






fpneg 






21'*1 


W / Q 








FPINT 






2192 


t%eii A ma 


AA0i 4 4 A 
WOP 1 I o 






ADD 


AC* 


•SP 


2193 


"PW / Q / 


A A7 AAA 


00161 2 




FPGET*DIRECT# 


FLARG 


21 94 


fflOlf £ 






FIG02I 


MOV 


»PTEN, 


PTR 


8195 


wW7o42 


A 4 nA A< 

•9120*51 






MOV 


(3P)*» 


AC 


2196 


007644 


100001 






BPL 


ricoE 




2197 


007646 


005401 






NE6 


AC 




2198 


0076S0 


012702 


007103 




MOV 




PTB 


2199 


007654 


005101 




riGORI 


DEC 


AC 




2200 


007656 


002402 






BtT 


rjGOl 




22«l 


007660 


007041 






rPMUIi*IPTR 




2202 


007662 


000774 






BR 


riooE 




2203 














I6(i9) 


2204 


007664 


010466 


000016 


FIQOSI 


MOV 


CHAltf 


22«i 














l4t»F5 


2206 


007670 


010166 


000014 




MOV 


AXOUff 


2207 


007674 


005726 




riG04t 


TST 






2208 


007676 


000167 


175723 




JMP 







2209 
2210 



KTHTS CODF TS NOT RE"FNTR ANT J ) 

rCONNECT FTRST DTGIT GROUP 

ISTART FRACTION COUNTER, 

JDID IT IN PCPIOn? 

>N0, Gn FINISH THE ANSWER 

ICOUNT DIGITS ANn APPEND RESULT, 

lOPEN SPACr ON THE STACK 

IFOR NO, OF DEC, DIGITS, 

I FROM GETTjN? 

lYESf LEAVE 

IDID IT FND WITH "E"? 

|N0, GO EXIT 

I YES, SAVE PRESENT RESULT 
I READ ON PAST THF »E', 
fREAD EXPONENT 

fCORRECT FOR SIGN OF EXPONENT, 

If It 
f •*• 

fMAKE AN INTEGER IN » AC • 

fSAVE EXPONENT AND USE AS COUNTER 

I RECOVER VALUE OF DECIMAL FRACTION 

UNITIALIZE CORRECTION POINTER 

iTFST THF SIGN OF THE EXPONENT 

I IF CORRECT BY »,10 

I TAKE A88, VAL, OF THE EXP COUNT, 

IIF CORRECT BY #10, 

I DO THE CORRECTION, 

I LEAVE WHEN FINISHED, 

fCORRECT ELAC VIA POINTER ON THE STACK, 

I REPEAT UNTILL EXPONENT COMPLETED, 

I 

I INTERNAL DATA«YES, 

ICOPY TERMINATING CHARACTER, 

ICOPY TEXT POINTER 

f LEAVE VALUE 

ITO BE RESTORED AT "pWREGS" 
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?? 1 3 








2914 








99 1 S 




(?( f- 7 ,T! 7 7 




2216 




1 2 ■ ' 4 9 7 




99 < 7 


i?07 7 1 


VI y J. *4 - -* 




99 1 


0^7 7 1 9 

y.tv f lie 




(5tCT!?9(JI9 


99 1 9 




tvv 1 ffJ(?l9 






0a779M 


If* ~ i W7 1 




9991 

c I f i 


007799 


I iO «t " 1 •* 




999? 


0077 24 






999 ^ 


00779fi 


1 5ifll7 i? A 

I ffx! f Vr H 




9994 

iK / <e "* 








999S 


0077 14 


001701 




999ft 




3. lO S w 3 * 




999 7 

€ C C 1 


CI077<d9 


1 19967 




9998 


0074Ka 


1 A7 1 




9990 


0077KI9 


1 905499 
1 cyit £ f 




<^ (6 J It* 


0077R6 






9911 






1 7774ei 


9 919 


0077Ad 


1 ^ *i V 




9913 


w f too 


C^l 1 974ft 


<OKfVf/ I f 


9914 

/ Z J 


007779 


0)01761 Afl 

OW / K/HV 


StOil 1 019 


9915 

* 4 J 


00777fi 


00701 3 




9916 


« lb* 91' K/ 


099696 




9917 

C £ -3 f 


010(1^9 


C v ^ * ^ * 




991S 

* « OS o 


♦ X c/ rf 






9919 










010006 


042704 


1777*0 


^ » ■ 


010012 


001364 






010014 


007040 


007102 


2243 


010020 


000770 





ICONVERT A GROUP OF NUMBERS, 

DFCOMVl FZER 

CMPB CHAR* #20i 
BEQ DECONl 

f!MPP CHAR, #202 

COM ae 

OECONlt GETC 

TSTB CHAH 
BMI DXIT 
CMPB CHAR# i»; 
BEQ DXIT 
SKPNOM, DETN 
1 BITB iFfAIiPHA, SWITCH 

BEQ PXIT 
CMPB CHARp «»E 
BEQ DXIT 
BIC »»40# CHAR 

DECOYI MOV CHAR# •CSP) 

MOV ilS,» .tSP5 

FPMUL+DIRECT* TEN 
FPADD+FROH^STACK 
CI,OSE*STACIC 

DEC0N2I IHC PfR 
BR DECONl 

DETNi BIC l»20, CHAR 

BNE DECOY 
FPMUL*DIRECT#TEN 
BR DEC0II2 



?CLEAR X^'ITIAL VALnE. A^D »AC' 

f+? 

I YES 

f^? 

|N0 

f ykspkeverse sign 

IGET NEXT CHARACTER 

fCHAR FOR 'TERMS' 

ILEAVE THE TERMINATOR 

fTEST FOR GROUP TERMINATOR 

fAND LEAVE IF FOUND 

tCHECK FOR NHMBER 

ITEST FOR ALPHA AS TERM, 

|Cl-EAR«YES, IF sj THEW CAN'T RE E»FORMAT FITHF 
(CHECK FOR SPECIAL FORMAT 
fif t 

fCLEAR HIGH ORDER BITS OF "A^E" ASCII CODES, 
fSAVF THIS DIGIT 0^ STACK 
I LOAD INTEGER EXPONENT O^'TO STACK 
pMULTIPLY PRESEKT VALUE BY 10 

lADD IN WEW niGlT 
fREMOVE ARG, FPOM STACK, 
»COUWT DIGITS 
IGO BACK FOR MORE, 
I 

I USE BCD PART OF ASCII NUMBER, 
fGO USE THE DIGIT IF NON^-ZERO, 
f UPDATE PRESENT VALUE 

I REPEAT, 
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FOCG'»',002 



c <! <r 3 






« / * D 


















^ « •* ~ 






«. <5 »• 


010022 


016704 




fl 1 nnjfi 




ffr C " * 


010032 


001 420 


99*1 ^ 


^ * lU J 


1 0S7 1 4 


9 OKI 4, 


W A T ' If/ .J Q 


1 00176 


9 ?K 


ic^ ♦ K/ ** If 


1 1 A40d 


r. if" " 


C' X y • «4 "1 




9 0« 9 




00090*1 

IE? «E K* □ 










ai flaR9 


01 0446 




'9 W* V tj ^ 


016704 


99A i 


010060 


10B714 


ten* 


010062 


100376 


99A3 

* n 


010064 


1 1 1664 


99A4 


010C>I70 


012604 






* V/ 3 








99*7 












<• « 9 ' 






2970 


010074 


016704 






100775 


9972 


010102 


005167 


99<V3 


0101 916 


0007^6 


£4 1 1 






* ^ 7 P 














01011 Iff 


011746 


994 fi 


01014 4 

f * p 1 I 


191697 




01011 9fll 


001 004 




010199 






01 A1 


001 001 


99a9 


010110 




29113 

* ^ 5 «' 


010132 


10S0i7 


33i4 


0I01S6 


«087S7 


228B 


010142 


100401 


22«6 


010144 


104645 


22117 


010146 


012667 


2288 


0101S2 


00000a 



171604 
177560 



000002 
171S62 



171554 



000002 



171536 
171530 



177502 
000203 

171481 



17144} 

ifl4f4 



171464 



|«Il*CH" AND "OUTCH" 

fUSlNG 'TNnFV AND OUTDEV FOH B^BtT I/O, 



XI33t 



XI33XI 



XOUTI 



MOV 


INFiEV » 


CHAH 


lEND BfJFFF.P TO POINTER 




ITKS# 


CHAR 


pTFST FOR r>EVICK 


BEO 


KITH 




fLOW SPEFD 


TSTB 


9CHAR 




|WAIT for FLAG 


RPL 


t "2 




fWAIT FOR KEYBOARD DONF 


MOVB 


2CCHAR3 


rCHAR 


ISAVF INPUT BUFFER 


INC 






iREOflEST NFXT 


UTS 


R5 




fRKTUHN FROM I/O DEVICE 


MOV 


CHAR# 


• cap) 


I8AVE DATA 


VOV 


outdev, 


CHAR 


ILOAD POINTER 


TSTB 


iCHAR 




ITEST FLAG 


BPL 


.•2 




IWAIT 


MOVB 




2CCHAR5 


fOUTPUT DATA 


MOV 


fSP5+# 


ChAR 


IRESET CHARACTER 


RTS 


R5 




IRETURN 



ITHIS KEYBOARD CONTROL 18 ASYNCHROMOUS 



KlTHi 



MOV 
§MI 
COM 
BR 



KIM, 
KITH 
KIM 
XI33X 



CHAR 



pTEST FOR DATA READY, 
fWAlT FOR INTERRUPT DOME 
IRESET 
t RETURN 



I KEYBOARD INTERRUPT HANOLSR 



KIMTI MO? 

CMPB 
BNE 
COMB 
BNE 



KIMTI i 
KSMT2 I 



•8P| 

KIMTI 

ccrLC 
KiMia 

ERROM2eU0|t0i 

Cl<R8 ccriiS 

TST KI» 
6NI t«4 
ERROR#20U18i4l8', 

MOV KIM 
RTl 



I TEST FOR COMTROL^C 
tNO 

fYESi CHANGE DATE 

iTMOf 

I YES 



I ANY ROOM? 
lYES 

I INPUT BUFFER OVERFLOW, 

I READ DATA! CLEAR INTERRUPT DONE 

pCONTIMUE 
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72^^ 




















1 CM 5 4 


1 ?7(.'5 




1 P- 1 «. 


1 2 7 2 


?29b 




«*1 1 246 


??<?6 


01C!166 












010172 






5'1(?174 


4246 






1^^6212 






15^5512 


7^^2 


wif^2f^2 


f'l 2762 


23«^3 


01021 f* 


0070R3 


23CT4 


P'i021 2 


(?07031 




01f<21 4 


5*0701 1 




f^l(«2l ft 


P^SSl 5 


7li(^l 


01(?22i' 


121215 




010222 




?3?«9 


fr*lf'224 


5^26267 


?31 P> 


^<l<^232 




231 i 


«1C234 


1 26267 


2312 


010242 


103002 


2313 


01{*244 


P07061 


2314 


010246 


<^00760 


2315 




?05726 


2316 


01«252 


£^05726 


2317 


?>10254 


P002P7 


2118 






2319 






2320 






2321 






2322 






2323 






2324 






2325 






2326 






2327 


010256 


?62767 


232? 


P'10264 


PI05567 


2329 


P10270 


5'000?')2 


2330 






2331 






2 332 






2333 






2334 






2335 






2336 






2337 


P'lf^272 


0070f'5 


233B 


01^274 


000427 


2339 






23df' 


P!1P'3?'2 





tSOUARF ROOT Fl.^'JCTIOM <OPTTDMAL> 



XSOTI 



f?60320 0000^2 



?-'0v »BE, P5 

f.^OV »FLAPG + 2,PTR " 

PPT- , + 4 

FRRO??*20Ui?, + 17. 
SQUEWD 

ASPB 9PTR 
ADCB aPTR 
MOV #60320, 2(PTR3 

FPCJET+FROM + STACK 
FPniV+lPTH 
FPADr> + TPTR 



000002 
000001 



171366 
171361 



ROftTGOf 

SQXI 

SQUEMD I 



DEC 

CMP 

CMPB 
BHIS 



SPTR# 
POOTGO 
?tPTR) I 

POOTGO 



ens 

HOT?D 
T.ORD + 1 



rPPUT+IPTR 
BR CLCU 
TST fSP)+ 
TSf CSP}+ 
POP J 



fPniK'T FL^ATl^G RFSHLT 

fPOT''T T'^ Tf.Mp STORAr,F. (2 

ISAVR VAT IF FOR VfA'TON's f 

fTKST FOR 

fl^'AfJJWARY RCOTS, 

lARG A^fD RFSULT ARF ZERO, 

JSAVF HTHKR RYTf^^ 

IMAKF PMRST fiPPHnX, 

t * t t 

f f t . 

f.^AKF SUCCFSSIVF. 
jAPPROXIMATinNS, 

lARF THE FXPOMENTS 
•EQUAL? 

?N0, TR¥ AGAI^j 

fYE5# TEST SOME ^'URE 

f NO 

ILAST TEST FOR FSQT(3) 
t f » i 

ISAVF MEW ESTIMATE 
I TRY AGAIM 
IREPAIR STACK 

I RETURN 



C3 ^OHDS) 
FTHOn 



ICLOCK CONTROLLER (STARTEP BY fXC^l # 177546, 192) ) 
f £OVFRHEAD»30,3 HSECSl <OPTlONAL> 



000400 
000006 



000010 CIKTI 



ADD 
ADC 
RTT 



#400» CLKT 

CLKT*J 



fCOUMT 1/60 SEC, 

fMlLLISEC 

iCONflNUE 



ICLOCK TIMr«OFi.DAY FUNCTTON IM 60THS (OR 50THS) OF A SECOND 
iCOVERFLOW AFTER 12,94 DRYSJ 



010276 



XFCLKI FPGET*IMMEn 
CLKTi 427# 

FPNOR 
POPJ 



ILOAO TIMK 

|TTr<fi:*np>DAy riMPURF-USER TMOEPEWnFKT] 

|RF Tf»PN 
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FOCGT,002 



?142 
















2^43 










p *OPF:RATE»aPROGPAMMABLE 


I/O COMMAND, <OPTIO'^'AL> 


2344 
















2 -Idb 




02 Til 24 






7.3lOT.IST+inMST 






2346 
















2347 










lOFlXl AST, 


AC 


IMAKF FVF^! 


234B 




«*1 ftlf*2 


1 67454 




MOV 


lOPATCH'- 


ZtACTf PTR fGKX PATCH ADDRKSS 


2349 




? i 6 1 1 2 


1 67436 




MOV 


lOGO-ZCA 


C), aPTR ISTORF. THt PATCH 


23*^ PI 


?il<?i1 < 6 


'5*2271 2 


1 77550 




CMP 


IPRS, 


apTR |H,S,? 


25*il 


01^322 


0?10£»4 








I0<^ 


f NO 


2392 




032732 


004200 




PIT 


»4200f 


(aCPTR)+ fYFS, 'rtUSY' OR "Dn^JFi? 




015(330 


001 001 








TOO 


lYFS 


23"»4 


0l{?332 


005252 






TNC 


(a-(PTK5 


J MO, SFT READER FN ABLE, 


23S5 


«1P!334 


104614 






lOQl Gt'TC 




fLOOK AT NEXT TKXT CHAR, 


2356 


<'1P>336 


104634 






PKORIOI SPVOR 




tGOTO NKXT LFTTFR 


2357 


010340 


! 04602 


010S52 


010104 


SOPTC#IOLlSTiIOFTX IIFST 


2358 


01P'346 


000167 


173102 




JMP 


PROC 


ICOMTIIIUF THF HME, 


2359 
















2361?^ 
















2361 




010352 






IOr,lST», 






23*2 


«l(?i352 
»l036e 


045522 
1 1 


052120 


051514 


.ASCII "RKPTLSH 


n 




2363 


t^l«361 


000 






.BYTE 






2344 
















23AS 
















2366 
















2367 
















2^ft8 

*■ J M " 




010362 






lOGOa, 






2369 


010362 


1 77550 






PRS 






237C^ 


(91(^364 


177560 






TKS 






2371 


01P1366 


177554 






PP8 






2372 


010370 


177564 






TPS 






2S?3 


{«1C!372 


17751 4 






IPS 




fUSE %R0 IF tISFR HAS NO GT40I WRITING 1*1 IT WO'J»T 


2374 


01P)374 


177700 






177700 




2375 


0161376 


175614 






175614 




f ADDRESS OF P!>P»10 OUTPUT 


2876 
















2377 
















2378 




010400 






lOPATCH", 






2379 


010400 


001632 






INDEV 






23fl0 


010402 


001632 






INPEV 






2391 


010404 


001634 






OUTDEV 






2S82 


010406 


001634 






OUTDKV 






2383 


010410 


001634 






OUfOEV 






2394 


010412 


001634 






OUTDEV 






9389 


010414 


001634 






OUTDEV 






2396 
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fFAST SIWEiCOSTNF: <OPttQKkh> 
























51C10) ^oms 












sroscpi/2-x) 


23^2 








iCnSf 4X3c8<CnsCX5-4-COS(X)*2>'f 3 












si-X*2/2+X*4/24-X*6/7 20 


2394 








f 


=l«X*2»Cl*X*2/12+X*4/360 3/2 


?3<'5 








t 


sl*X*2*Cl-X*2*<l«X»2/30>/12 5/2 


2396 








I 


Bl+S*( l+S«<l+S/30>/l2 5/2 


2%^1 












23'?8 


010416 


007074 






FPNEG 


23Q9 


010420 


^'07015 






FPADO+IMMEn 


24P»ti 


010422 


166001 


062207 




166001, 62207 




5510426 


024646 




FCOSi 


OPPN+STACK 


24«2 


5'1P!430 


005{^02 






CLP PTR 


24«3 


010432 


«07063 






FPPUT + t>^TO*STACK 


24«''4 


010434 


007043 






FFMUt+FROM+STACK 


24(^5 


010436 


009737 


001616 




TST 9#BE 


24f 6 


010442 


00241 1 






Rl»T FC0S2 


2407 


010444 


111602 






MOVB ?SP, PtR 


2408 


010446 


i 12716 


177777 




MOVB ^SP 


2409 


010452 


006202 






ASP PTR 


2410 


0104S4 


103401 






BCs ,+4 


2411 


010456 


106316 






AStB |8SP 


2412 


010460 


005202 






INC PTR 


24! 3 


010462 


007003 






FPCET+PROM+STACK 


241 4 


01<^464 


007043 






FPMUI,+FROM*STACK 


24ii> 


010466 


007074 




FC0S2I 


FPNEG 


241 6 


010470 


007063 






FPPUT+INTO+STACK 




010472 


007035 






fPniV+lMMED 


2418 


010474 


000005 


074000 




Sf 74000 


2419 


010S00 


^507010 


010S60 




FPADD+DIRECTiFLTONE 


2420 


010904 


007035 






FPDIV+IMMBD 


2421 


010506 


000004 


060000 




4 1 60000 


2422 


010512 


007043 






FPMUL*FROM*STACK 


2423 


010514 


007010 


010560 




FPADD*DlRECT»rLTONE 


2424 


010520 


005537 


001S16 




f>EC ^IBE 


2425 


010924 


007043 






FPMOL^FROM^STACK 


2426 


010526 


007010 


010560 


rcos4t 


FPADD+DIRECT#FLTe»E 


2427 


040S32 


00S302 






DEC PTR 


2428 


010534 


002645 






RtT SQX 


2499 


010536 


007063 






FPPUT+INTO+STACK 


2430 


010540 


007043 






FPMUl.^FROM+STACK 


2431 


010542 


007063 






FPPUT*INTO*STACK 


2432 


010544 


007043 






FPMUL+PR0M*5TACK 












FPSUB+FROM+STACK 


2434 


010550 


062737 


000003 001616 




ADD ilf 9#Br. 


2435 


010556 


000753 






RR FC0S4 


2436 












2437 


010560 


000001 


040000 


FLTONEl 


1 ,040000 



jSiNfX)=roscPi/2»x) 
r * • i 

fPI/?*! ,570796 

fUSE STACK AS TEMPORARY STORAGE 
fCLEAR COijMTFR 
I SAVE X 

ITAKF X SQOAREn, 
f X*2<125? 
fYES 

JCOPY EXPQMEWT OF TWO 
10 IF FVEN 

fFTMn RESULT IF DIVIDED BY FOUR CFXP-2), 
|«»1 IF ODD 
f a»2 IF EVEN 
fSET COUN'TER 

tCOPY RESUliT 

fSs-X*2 

I PUT S on STACK. 
I TAKE FIRST FRACTION 
I 30 

ICOMPUTE INNER EXPRESSION 

f c • f 

112 

IFIMD ( 3 

f t«« 

IDIVI0E BY TWO CEXPwl) 

ICOMPUTE LAST OF SERIES 

fCOUNT »RECURSIONS« 
f LEAVE WHEN DO»E, 

trim cos*2 

fSAVE C0S"*2 
fC0S*4 

fCns"4<0S*2 
tMULTIPLY BY EIGHT, 
JRFPEAT 
I 

IC^'-STANT OF ONt, 



1mAJ»J, MACYl 1,620 19#MAR*73 13101 PAGE 58 
FOCC.1',002 

2439 
?44P) 
2441 

5442 fSYMBOL TABLF TVPtlOUT ROHTINF COPTIOWAT, 

?443 

J4A4 lUSEn B5f *TYPt:*ASK* 

3445 IVTA UTLIST' 

2446 



2447 


5^ 1(^564 


016705 


1710S6 


TDUMPI 


MOV 


STARTV, 


Rb 


c ^ ** Vf 




00971 S 




TDU'^Pl 1 


TST 




©R5 


A •* * ' 


1 5 7 2 


f?' 4^1007 






PNf 




TDUMP2 


24^0 


01C574 


062705 


000010 




&DD 


»10f 


Rb 


if *f T i 


1 ^6^^) 


020567 


1 71046 


T0UMP3I 


CMP 


R5, 


BOTTOM 






1*^3771 






BLO 


TDUMPl 




24*^ 3 




005726 






TST 


CSP3 + 




* •» ~ * 




000207 






POPJ 






24S5 
















<9 A H 


1 «g i 2 


] 04642 


020123 


TD11MP2I 


PRTNT2# 


"S 




24S7 


01(^61 6 


1 12504 






MOVB 


CR5)+i 


THAR 


^ f 


(^1^620 


104604 






PRINTC 






24*^9 


^IP622 


112504 






MOVB 


fR5)+i 


CHAR 


24A0 


('^1(^624 


100401 






BMI 


• *4 




1 


01(^626 


104604 






PRINTC 






/•in* 




A C/ ~ w 






PRINT* 


•( 




c ^ ~ J 


<'"1("632 


005725 






TST 


CR53* 






01P5634 


001410 






BF.O 


TDUMP4 




24^5 


«^10636 


005745 






TST 


*CR5) 




2466 


01fi)64(?l 


1 12502 






MOVB 


(RS)*, 


PTR 


24*7 


0lP'642 


004767 


176626 




.ISP 


PC, 


PRNTS 


24ft8 


010646 


104454 






PRTNT+ 






24fi9 


010650 


1 12502 






MOVB 


eR53+# 


PTR 


247^ 


010652 


004767 


176616 




JSP 


PC, 


PRNTS 


2471 


0106S6 


104642 


036451 


TDIIMP4I 


PRINT2, 


«)• 




2472 


010662 


010502 






MOV 


R9, 


PTR 


2473 


010664 


007001 






FPGET+IPTR 




2474 


010666 


016702 


170734 




MOV 


risw, 


PTR 


2475 


010672 


007076 






FPRINT 






2476 


010674 


104642 


00501S 




PRINT2» 


CRLF 




1477 


010700 


022525 






CMP 


eRS)*# 


fRSJ* 


2478 


010702 


8007S6 






iR 







IT'^JIT POTMTER 

I TEST P"OR MULL tN'TRY 

iGO TifPE NAMfT, t^C , 

rMOVF: POTs'TER 

(TEST LIMITS 

rTRY AGAT^ 

IBHMP STACf ("TASK" »bTURM) 
rLKAVE *T5fPE»ASK* 

JMAKF COMMANDS! 

rREAH FIRST T.ETTEH OF NAMhi 'i 

I AND PRINT SAME 

rREAH SECOND LETTER 

HGNORF SPACE 

I AND PRIVT 

lOPEN PARENTHESIS 

ULL ZEROS? 

I YES 

ICOPY SUBSCRIPT »1 AND TEST SIGN, 

»PRINT SUBSCRIPT DIGITS, 

ICOMMA 

ICOPY I<EFT*HAND SITS AMD 
|PRI?IT SAME 
ICLOSE PARE 
iCOPY POTNTER, 

ILOAD THE VALUE OF THE VARIABLE 
ILOAD FORMAT DATA 
IPRINT C<^«TENT OF FLAC 
IPRIWT CRLF AT END OF LINE 
IMOVE POIMTER TO NEXT ENTRY 
fCONTINUE THE SCAN 



.MAIN 
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24R« 

74f>b 
24R7 



iKANnOM NUMBFR GENERATOR <nPTlnNAL> 

IFPA^'O w A STATISTICALLY RAmDOM, PSEUHOwNOlStJ SHIFT RFGTSTER 
fWTTH PERIODICTTY a IZTeiClkS"), 
lAVERAGE B ,00060 



9 ii Q 

/ n 7 










» * 1 I M 


m 1 
























74" 1 


d 1 05"? Old 


£» 1 a *j 




A K A N 1 


MOV 




PTR 




•> yi 9 

<?4'»* 


W 1 I? T 1 (?! 
A f 1 


ia 1 o 7 sm 
w 1 « / t'? s» 






V 


MIA 
» 1 4 # 






A Q 1) 


" J. V* / I 


)?* 5! 7 f. "? 






TOT 


unDn 
n UKU 




fNOM»ZRRO ARGUMfcjNT INITIALTEKS 


2494 


«10720 


001 402 






BEQ 


XROL 






2495 


(*1<«722 


012712 


107654 




MOV 


#107654 


>^IPTR 




3496 


010726 


011 2? 1 




XROLl 


MOV 


flPTR# 


AC 




2497 


01??710 


«^06101 






POL 


AC 






2498 


01«'732 


I804f 1 






BMT 


.+4 






2499 


010734 


0051«^1 






COM 


AC 




fXOK BITS 13+14 


25"! 


051(^7^6 


?^06l«»l 






ROL 


AC 






2R'?1 


e'l?»740 


5906101 






ROL 


AC 






25S!2 


^10742 


006J12 






POL 


ftPTR 




1 (THANKS JOHN LARKINI) 


25?i3 


^'10744 


00530S 






DEC 


R5 




25«^^ 




003367 






BGT 


XHOL 






25^^5 


f4C"7S0 


^11267 


170644 




MOV 


9PTR# 


HORP 


JRANGE IS +i«l 


25^6 


015*754 


f 0(?»207 






POPJ 
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620 !9* 
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POCGT, 


06)2 










































ICHARACTER I/O 




<UPTTONAL> 




951 ^ 


















7.'^\ 1 








fFCHPC- 


1 ) I .TNPUT 


ASCII 






?5 1 2 








iFrwPCFOO) {OUTPn? ASCIT 






3 








»rrHRC2n,64 + 0A 


r n 4 + »^in f 


ni i otrr amd 1 


IN, 


?51 4 


















?5i 5 


^I'^TSfi 


104660 




XCMMO f 


LVAL a X 








y>5! 6 


0iC(7ftei 


007071 




XCHP f 


V T Li f1 






IKOHM INT OF AHC, (FNTHY POINT) 


251 7 


01i!^7fi2 


010446 






My V 


C M A R # 




ISAVF NKXT CHARACTER, 


7.5i 8 


<3l07fi4 


01C^1P'4 








AC » 


CHAR 


fPREPARE Jf) PRINT 


251 9 


01P766 


1 004««6 






nM T 

nfl J 






IBUT HFRHAPS GO READ, 




P>l(^77f^ 


104610 






\* u X ^ n 






1 OUTPUT 


?5?1 


<'!10772 


012604 






M n V 




CHAR 


IRESTORE NEXT CHARACTER 


25?2 


010774 


1 2fl4?7 


00021 4 




pi r P 




#214 


lANY MORE? (T,E, COMMA?) 


2n?3 


0110<?!0 


001766 








n ~ w 




f YESl 


?594 


011002 


000207 






rUrU 






» RETURN 


2595 
















1 


25?6 


01 1. 00 4 


1 0461 2 




XCHRII 


INCH 






fLOOK FOR INPUT 


2527 


01 100A 


042704 


177400 




RIC 


«<^400f 


CHAR 


|8»BIT ASCII 


2528 


011012 


010467 


1 70602 




MOV 


CHAR, 


HORD 


ISAVE RESULT 


2529 


011016 


012767 


000017 


170572 


MOV 


• 15,, 




tSET THE EXPONENT 


2550 


011024 


000762 






BR 


XCHARC 




t t f « 


25ll 


















2532 


















25S3 


















25S4 


















25*5 


















2536 








^EXECUTE USER FUNCTIONSU <0PT10fiAIj> 




2537 


















2536 








fSET Z«rSBRCGROUPHO^ARC) 




2539 


















2540 


01 1026 


004567 


171460 




J5R 


R9, 


GTESTW 


IliOAD 'LINEMO' 


2541 


0U032 


005000 








TBMP 




IZERO SUBSCRIPT 


2542 


011034 


004767 


173730 




JSR 


PC, 


WHIPV 


IPREPARE AMPERSAND 




01 1040 


010246 






MOV 


PTR# 


• CSP) 


»5AVE POINTER, 


2544 


011042 


104660 






evAt.x 






ISAVC ARG, 


2545 


01 1044 


007064 






FPPUT+THBOUOH^Sf ACK 


fLOAD ARGUMENT 


91146 


01 1046 


010446 






MOV 


CHM, 


«C»P) 


I3AVE LAST CHARACTER 


2547 


0ii0§0 


112704 


0003 X S 




MOVB 


•CR# 


CH*R 


fWkn m¥ TERMINATOR £C,R,3, 




011054 


004767 


173(910 






PC, 


r>0*2 


too THE SUBROUTINE 


* J *r ' 


01 1060 


012604 






MOV 


CSP3*, 


CHAR 


1 RESTORE LAST RwPAR, 


2550 


011062 


012602 






MOV 


fSP)*, 


PTR 


IDIG UP POINTER, 


2551 


011064 


007001 






rP(5ET*IPTR 




IRETRIEVE RESULT, 


2552 


011066 


000207 






POPJ 






rRETURM, 
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C C R 










I A/D 




FUNCTION 


FOR ADO 1-11 




















•1 c c ^ 










1 5FT 


XsF A DC ( r, A I ^J # C H Af-1 M p:l 1 


t'^ e a O 




















1 1 07 


7 f!* 7 1 






X Anc 1 












P n 3 1 








AST. 


AC 




?56 1 


W 1 1 7 4 


9! fi i 1 








ROL 


AC 






01107ft 


?' i ? 1 4 6 








MOV 


AC» 


"CSF5 


25ft 3 


W 1 1 1 


1 ?46ft0 








FVAL.X 






25^4 




wr707 I 
















^1 1 1?'4 


150166 








PI SB 


AC, 


1 (SPl 




011110 


P 1 2667 


3 65654 






MOV 


(SP5+, 


ADC5 




1 J 1 1 4 


















^41116 


016757 


A If f IE <~1 


1 70474 




WOV 


ADD8# 


HORD 


A V « C\ 


fM » * i A 


n /3t "1 /X jl CT 


W0001 1 






FFMUL + IMMEp, 17w6 


,50000 


257? 


^11132 


?^0f^2P»7 








POPJ 






2571 


















2572 




376770 








ADCSal76770 




2573 




176772 








ADnBai76772 





<OPTTONAT.> 



fRKAH GAT:'j AND 

fLOAO TT IMT'^ THb; AC POSITION, 
t • « . 

fSAVF RSSUTT 
fRFAH CHA'^TvEL NtjMBEH, 
fMAKF TT A^5 TNTfGF.R, 
ICOMBINE THE BITS 
fL^An T'^TO STATUS, 
ICLEAK 'FLAC AND DFLAY 
IRKAC RFSULT, 
rl/lP!2,4 

rBESULT IN VOLTS, 
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Forr.T, 


































lEXPFRIMFNTAL 


FU^lCT10^; 


<nfTinNAI.> 


























2577 












»FX( 1 




AHDR) 






?57P 












fFX( 


.Bt'SS, 


AHDR^nATA? 




1 It ft •'in" s-^Hn 


?579 












>rxc-i 


,Rnss, 


AnDR#nATA) 






25a<^ 






















?5fll 


in 


134 


P!07!^71 






XKXI 


FPINT 








?5«2 




136 










ASL 


AC 






?5«3 


*5ii 


14(?! 


010146 








MOV 


AC» 


• CSP) 


ISAVF FUMCTinM Cf>DE 


7SP4 


01 


L142 


005046 








CLR 


• CSP) 




fSTART B"S ADORESS 


?5«b 




144 


1 227(^4 


000214 






rMPB 


»214» 


CHAH 




^!5«6 


01] 


I 15C? 


001P33 








BNF 


XFX4 






25fl7 


01] 


L152 


104614 






XEX2I 


CKTC 






iMnVF ON, 


25fl8 


011 


1154 


1 00424 








PMT 


XEX3 




ILFAVK IF TERMINATOR, 


2flfl9 




[ 156 


120427 


000060 






CMPB 


CHAR* 


»60 


ITEST FOR ALPHA 


2590 




L162 


103414 










XEX2A 




fUSF. EXPRESSION 


9591 


01 


1164 


120427 


000067 






CMPB 


CHAR# 


#67 




9!592 


01] 


L170 


101011 








BHI 


XEX2A 






?«>93 


f^l] 


1172 


042704 


177770 






PIC 


#«»10# 


CHAR 


iCREATE OCTAL ADDRESS 


2594 


01] 


L176 


006316 








ASL 


9SP 




> 


2595 


01] 


L200 


006316 








ASL 








2596 


01] 


L202 


006316 








ASL 


esp 




f 


2597 




1204 


050416 








BIS 


CHARf 


laSP 




2598 


013 


L206 


000761 








BR 




XEX2 




2599 




















t 


26PI0 


013 


1210 


110115 






XEMt 


MOVB 


AC» 


laRS 


1 LOAD 


2S<»1 


013 


212 


000207 








POPJ 






f LEAVE 


26«<2 




















1 


26CU3 


013 


1214 


004767 


173454 




XEX2AI 


JSR 


PC. 


GETARG 


fREAD ADDR, VARIABLE, 


26^4 


013 


1220 


007001 














269'B 


013 


1222 


007071 








PPINT 






ICAUTIONI BIT 15 IS SIGN BIT 




013 


L224 


010116 






XEXiR 


MOV 


AC* 


isp 






013 


1226 


122704 


000214 




CMPB 


«ai4, 


CHAR 


pCOMMA? 


2606 


013 


1232 


001002 








BKE 


xex4 






26(^9 


013 


12^4 


104660 








EVAL, 






IKEAD DATA 


26ie 


013 


t2S6 


007071 






xe:x4i 


PPINT 






fPUT IMTEGER IN »AC» 




013 


1240 


012605 






MOV 


eap)+, 


RS 


IGET ADDRESS 


2612 


013 


1242 


012602 








MOV 


C3P)*» 


PTR 


1 RESTORE CODE AND TEST, 


26!3 


013 


L244 


100426 








BHI 


XEL 






26i4 


013 


L246 


003023 








BOT 


XBR 






2615 


011250 


01180S 






XETi 


MOV 


§R5# 


R5 


ILOGICAL •'AND* 


2616 


013 


1252 


005105 








COM 


RS 




1 H 


2617 


013 


L254 


040501 








BIC 


R5, 


AC 


1 " 


9«!8 


018 


L256 


020127 


100000 






CMP 


AC» 


1100000 


lis IT •12768? 


2619 


01] 


1262 


001007 








BNE 


XEXIT 




|M0 


2620 


013 


1264 


012767 


140000 


170326 




MOV 


#140000 


,HORD 


fYES»IT TS A SPECIAL CASE 


961J 


01] 


1272 


012767 


000020 


170316 




MOV 


»20# 


BE 




2622 


013 


1300 


000207 








POPJ 








2623 


013 


1302 


010167 


170312 




XEXITI 


MOV 


AC# 


HORD 


fSAVE RESULT 


2624 


013 


13P6 


012767 


000017 


170302 




MOV 


»17, 


m 


lAS INTEGER , 


2626 


013 


1314 


000207 








POPJ 






?G0 BACK TO FUNCTION' CONTROL , 


2626 




















tREAO THF T'l^Tfll'S 


269? 


01] 


1316 


1U501 






XERI 


MOVB 




AC 


262B 


0*3 


lj20 


0007 70 








on 


wff!« w « m 
AO A A I 




f 
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i'lia?? (^2^1?^ XKLl CMP PC, Pb 

?6^i ^•'in^A ii;^;!! pl^s xp^m 



fPRCTECT FOCAL 
j p v 

|DTSALT;0^*'!^n BUS ADnRFSSF:S, 



































?ft4f» 






^'l 1 3-14 


?642 


01134^ 




«11 344 


9fid4 




?64S 




?646 


5^1 ! 356 






?ft4R 


f ll3f>6 


2649 


01! 374 











S^4?706 C^0{^277 

PI 10667 1 703! 2 

f?167(^6 170344 

P'127Pll «00064 
f«05021 

02£«167 17«332 
1^3774 

5^1 2737 010256 

{512737 000340 

000137 003070 



U|0i PAGfc: 6 3 



HUFPFG 



TNTTI 



000100 
000102 



#277 # SP 

SP, BOTl'OM 
STACK0+2,SP 

#64, AC 
f AC)i 

AC# STAGKO+2 

#CIf*T, S»i00 

»340f ia#l02 



tONJCF n-vI,Y CODF, 
fSFT rn XX7 55s*^ 
ICOPY 

rSTARf STACK 
iXFRrv VF.rt'^Rfi 

lAMD STACK 

|SFT"P CLOCK POINTKK 
|BR6 

jGO FRASF VARIABLE ARF.A AND v*^TART 



.MAIW, 

For 



GT,0| 



•yil,6?0 19pMAR«73 13101 PAGE 64 



2653 

2657 
26SR 
26S9 
266f> 
261^1 
2fifi2 
2663 
2ft64 
2fi65 
2666 
2667 
266e 
2669 

2670 
2671 
2672 
2673 
2674 
26 7S 
2676 
2677 
2678 
2679 
26ft0 
2681 
2692 
26g3 
26«4 
2685 
26 R 6 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
269B 
2696 
2697 
2698 
2699 
27#0 
27<»1 
27<«2 
27(«3 
27<'4 
27<«« 
27^16 



mi 



tGT40 FUNCTIONS 



,TFDF GT40 



fDMEW WHTTTf'J BY R, FRIKOF-H!'! HAT. 
fLAST FDTtj 2/2S/73 



fCOPYRIGHT 1972, 1973 DIGITAL EQUIPMENT CCRPORATIO^^ 
iMAywARD, MASS 01754 

f THE FUNCTIONS IN ONEW ENABLF TH6: FOCAL*!! USER TO HRA*^ OH A 
f GT40, 



fCOMniTIONAL ASSEMBLY PARAMETERS 



lASSEMBLING WITH MO PARAMETEPS OEFTNFD IN THF ASSEMBLY STRING^ 
f PRODUCES FOCAL*!! WHICH WILL RUN IN AN 11/05 

f ASSEMBLING WITH GT40 DEflNED PRODUCES AN 8K FOCAL-GT WITH NO 
ILPS FUNCTIONS 

lASSEMBLING WITH GT40 AND RT DEFINED PROnUCES AN 8K FOCAL»RT 
fWITH A BUFFER 1000 WORDS LONG 

fASSEMBLINC «ITH GT40, RT# AND NOBUFF DEFINED PRODUCES AN 8K FOCAL«»GT 
I WITH LPS FUNCTIONS AMD AN ESAM THAT DOES NOT USE A BUFFER 

ITHE USER MAY DEFIKE STANDARD PARAMETERS IN HIS ASSEMBLY STRING 
|BY DEFINING 'PARAMI IN THAT STRING FOLLOWED BY THE NEW PARAMETERS, 
UN THIS CASE, HE MUST DEFINEI 



I KSIZE 
f DSIEE 
I TSIEE 



THE SIZE OF CORE IN WORDS 

THE SIZE OF THE DISPLAY FILE IN WORDS 

THE SIZE OF THE TEXT PORTION OF THE DISPLAY FILE 



fif THE USER DEFINES 0T4e# RT, AND PARAM, HE MUST ALSO DEFINE 
fCTN ADDITION TO THE 3 PARAMETERS ABOVE) t 



LPBSIZ 



THE SI7.E OF THE LPS BUFFER CTN WORDS) 



f ASSEMBLING ANY OF THE ABOVE WITH I TERM i DEFTN'ED PRODUCES A VERSION THAT 
lINCLUDES TERMINAL CODE 



.ENABLE AM A 
.ENABLE ABS 



'.MATN, f«ACY1 1 ,620 19»MAR«73 







9 7 ffl "J 




77C8 




97!'*9 




^ / 1 »' 




^ / 1 J 












5714 












97 1 7 




97 4 

/ 7 ' " 




97 4 9 


(^20000 


97 9P) 




7771 


v w ^ 


9799 




97 9^ 




97 OA 




97 9*4 




97 <)l% 




9797 




47 7R 


vj Ifl J 




T' 4; 


97 ^Ct 




97 V 4 


Tr ^ r' 


97^9 




97^1 


002 


97^4 


003000 


971S 




97 


001 


/far 




97 tR 




?719 




97 Afl 




9711 




9719 




9741 




9714 




971S 








97 A7 

^ 7 * » 




971R 




9719 








97K1 


00163S 


97^9 


019176 


9713 


001000 




006000 




037770 




003124 






5!758 


164000 


275f 


173400 


2760 


160000 
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I 

jTHR fOI.TOV'lNG t'ARAMFTPHS ntTERMT'-F ThF. SlZt UF riSPT,AY FT^E 
fHFLMIVF TO FOCAL B'^FFliR /\HFA, tm6; phRTIC^: '"^F P^t; ?Ml^PL^Y 
ffTLF DFVQTFn TO TFXT TMTTTAT.LY, AMD THF tYPK OF FOCtL TH PR'JD'ICF. 
ITHK USF.R WHO DEFINES tpAKA^^' T^' THE ASSFHBLY ST«fI»JG M'UST ^F'^P'f 
lALvSO EACH OF THF PARAMFTER3 DFFT^^^FO BELn^i, 



.IF^DF PARAMS | 8K DEF IN 1 TIONS , DEFAULT DEFl -ilTIUNS 



KSIEFS20000 
'.IFDF RT 
'.IFNOF NOBUFF 
DSIEEa4000 
LPBSIZ«1763 
.FA'DC 

,IFDF NOBUFF 
nSIZEaf>000 
I.PPSTZa0 
,ENDC 

Jendc 

.IFNDF RT 
PSIEE«S300 
LPBSTZB0 
,EWDC 

TSIZF»3000 
,EMDC 



fCORE SIZE C^^f^afaflK ^ORDST 

flF T.PvS CODE 

I IF FULL SUPPORT 

fSET DISPLAY rXLF SIZE 

fl000 WORD INPttT BUFFFR 

fif WON*BUFFERED SUPPORT* 
IMORF ROOM FOR DISPLAY FTLF 
»N0 BUFFFR 



fIF NO LPS SUPPORT* PRODUCE FOCAL»'GT 
fWlTH LARGE DIPSLAY FILE 
I AND NO BUFFER 

fIN ALL CASES PORTIOW OF DISPLAY FILE DEVOTED 
»T0 TEXT INITIALLY 



;iFDF K4 

KSTZEB10000 

P8IEE-1000 

TSIZE»700 

LPB8IZ-0 

,EWDC 



|4K OEriMINTlONS (DEFINE PARAM ♦THESE VALUES IN ASSEMBLY STRING) 
iCORE SIRE 
IDISPLAY FILE SIZE 
fTRXT FILE SHE 
ftiPi BUFFER fHONF) 



pTHE FOLLOWING RECALCULATE SIZES TO MAKE THEM DIVISIBLE BY LOCS 
pWKICH CONSIST OF 6 BYTES EACH 
DSIER«DSIZE*0SIZE/6 

DDSIZE»DSIZE»6 fFlNAL DISPLAY FILE SIZE 
TSTZE«T5lZE*TSIlE/6 

TTS1ZE«TSIZE»6 fflNAL TEXT PORTION 
KKSIEE«KSIEE*KSIZE.10 pFINAL CORE SIZE 
ENABB3124 lENABLE BITS+I"TFNSITY 4 

p THE FOLLOWING DEFINE GT40 INSTRUCTIONS USED BY D^E^ 
DNOP»164000 tDISPLAY NOP 

DSTP"i73400 tDISPLAY STOP^ WITH INTERRUPT 

D»jMPBi60000 fDlSPLAi vJuMP (DE3TTN«TI0'*J FOLLOWS S*J FILE) 



'.MAIM,^" \f"Y11,ft20 19-MAR-71 13:01 PAGE 



?7ft 1 




i 1 40^0 








1 f». 




?7fi3 




1 1 pi 1? 




?7ft 4 








?7ftS 








?7ft6 








?7fi7 








n « O 




rt! T 




?7ft9 




0^. iA 




?770 








9771 




5 04614 




2772 








?773 




172000 




2774 




172^^02 




2775 




172004 




2776 




17?!^C56 




2777 




1 7{»404 




2776 




1 70400 




2779 




170402 




2780 




170406 




2781 




0001 34 




2782 








2783 




M M A 9 A n 

000320 




2784 




000300 




2785 




175610 




2786 




175614 




2787 




000324 




2788 








2789 








2790 








2791 








2792 








2793 








2794 








279S 




011 330 




2796 


011330 


01 3706 


001710 


2797 


011334 


012701 


000064 


2798 


011 340 


005021 




2799 


011342 


020137 


001710 




01 1346 


103774 




28«1 


011 350 


012737 


0103S6 


28^2 


011 156 


012737 


000340 


28W3 


011364 


012737 


024634 


28^4 


011372 


012737 


000340 


28<?5 


01 1400 


012737 


024S26 


28f6 


» I I 406 


012737 


00fi340 


28^7 




002 




28^)8 


011414 


012737 


023116 


2BWf 


0*1422 


"12737 


000340 


281 ^ 




00 1 




28! I 








28^2 








28<1 








28!4 




001 





000100 
000103 
000S20 
000322 
000324 
000326 

000300 
000302 



-2 



rsPTali4000 

nvrc»! 1 ^^f*00 

FTPAR=21 1 
I Fsl2 

BELLS? 

rVALIIal04400 + 260 
GETCHB104400+214 
r DEVICE REGISTERS? 
GTPCal72«^00 
GTSTAT«GTPC+2 
GTX«GTSTAT*2 
GTY«GTX*2 
CLKIN«170404 
ADT:N»170400 
LED0UT«AniM*2 
PRE5ETS170406 
CLKADR-134 

STPADR«320 
TEWADR«300 
TENINB175610 
TEN0UT»175614 
l.PADReSTPADR + 4 



tPOINT MODE 

J CHARACTER MODE 

thO^d VErtHR MODF 

rA RIGHT PARE«^THESTS 
ILT'^E EEKD CHARACTP:R 

jCarriage return 
»*g ri^gs the rell 

fMAKE hoc A GENERAL REGISTER 

fTRAP TO EVALUATE NEXT ARG 

fGET r^EXT CHftHACTER FROM EUNrtlOM 



IGT STATUS 

fGT X COORDIMATE 

IGT Y COCRn 

ILPS CLOCK STATUS 

ILPS A/D STATUS 

fLPS BUFFER ANfi LEH OUTPUT 

ILPS PRESET REGISTER 

I LPS CLOCK INTERRUPT VECTOR 

I STOP TMTERRUPT ADDRESS 
ITEN INPUT VECTOR 
I TEN IWPTIT STATUS 
ITEM OUTPUT STATUS 

rlilTE PEN TN, ADDRESS 



'.MACRO RESUME fRESTART THE DISPLAYi 

MOV tlffiGTPC |B¥ TRYING TO MOVE A 1 INTO GTPC 



,«INIT 


INEW IMIT CODE 




MOV 


STACK04'2,SP 


fSET UP STACK POINTER 


MOV 


•64fAC - 


IGET START OF VECTOR AREA, 


CIjR 


CAO* 


»AKD CLEAR UNTIL* 


CMP 


AC#STACK0*2 


IBASE or STACK 


BtO 


.-6 




MOV 


•CINT,0tl00 


1 INSERT CLOCK VECTOR 


MOV 


»340#§«102 


fAND STATUS 


MOV 


i5TPIMT»*iSTPADR 


rSTOP VECTOR. 


MOV 


»340,9ISTPADR+2 




MOV 


»LPINT,f iLPADR 


fLITE PEN VECTOR 


MOV 


»340f 9ffLPAi>R + 2 


Uror 


TERM 


pIN TERMINAL SETt'P, 


MOV 


»TENlNT#««TENAnR 


fSET UP TEN INPUT INTERRUPT 


MOV 


»340#§#TENADR+2 


'.EWDC 








RT lir LPS 


SUPpriRT 


MOV 


iCLKTNT#a#CLKADR 


|SFT!'P CLOCK INTF:hPUPT 


MOV 


•340»i«CLKADRt2 




,ENDC 







'.MAIN, MACyH,620 19«rMAR*73 13101 
roc 0^,00 2 



?R 1 5 




/%nt A 9 1 
("H 4 7 ^ / 


vl / J 1 n 


!^ 8 1 ft 








7Pt^ 7 








2P 1 8 








7R 1 9 
























2872 








2R23 




104443 




2fl?4 








2895 




010110 




2896 


01f"l 1 


01 3746 


177562 


2897 




5 2) 627 


M /it n A M 4 

000203 


282B 


1 1 2 P? 


001006 




2899 


0l?122 


105137 


001601 






J (305 




28^1 




M*?47 37 


alii & & 

t'^j loo 


2SS2 




10*601 




2833 


010136 


4 nK ^ *ff 

105037 




2814 


f 1<''142 


A A *V 4 *1 

005737 


001636 


2835 




wgPl I J7 


a OJ. A ^ 's 


2856 








28S7 








2838 




A <M 1 




2839 




010110 




2840 


0101J0 


0001 37 


A 4 fli 4 & 

02)0 3 


2841 




001 




2842 








2843 








2844 




002016 




2849 




angt4 • t 




2846 








9847 








2848 








2849 








2856* 








2851 








2812 








28SI 








28S4 








1 A ■ 

2855 








2856 




t 




2897 








28S8 








2899 








28«S* 








2861 








9862 








2863 




vv I f IV 




2t§4 


001710 


001024 




286!) 




001024 




9866 


081094 


000000 




2867 


001«26 


000000 




2868 




002 





JSP 



J GO SF.T !!P DISPLAY VlhV A'^JH 

KHASFV ERASfc-S THF ,TMP rMIMTT? 
■ r;FTS TO fcXi'T'JTfc;, FOi^AT: ST6RT6 A^\"^^Y 



,=STaRTX*46 
104443 



.SKINT 

WOV 
CMPB 

COMB 



?SP,#20a 
KINT3 
CCFLC. 
KIMT4 



ERROR+201+0,+0, 
KIKT3I CLH8 CCFLG 
KI*'T4I TST Kl^J 

JMP TSTERK 



'.IFDF TERM 
.■KINT 

JMP K 



.■ERR2*44 

JMP RESETD 



NUMP«S4 

NUMPlNUMF+H 
'.ENDC 



,»SfACK0+2 

! 100PNIJMF 
,«1 100WNUMF 

,IFDF RT 



ICHANGE FOCAr.'S MfiLLO, 
fTO ♦! SIGN 

jCHANGF. KKYBOAHD input ROUTI'v'E 
IGFT CHAR 
ITFST FOR *C 
fNO 

lYES, lIPDATfc: FT.Afi 
f TWO? 

lYFS RFSFT SCRFKN, 
tAMD FOCAL 

lAMY ROOM? 

I CO no EXCFSS CODE 



HF TERMINAL HOOKUP* 

>15T GO CHECK FOR •F AND *T 



ION AMY ERROR ^ 
IRESTART THE DISPLAY 



ISIZE OF ADDITION TO FUNCTION LIST 

IFOR LPS ADDITION 
I INCREASE THIS SIZE 



jSHORTEf« STACK IN OVFRFLOW ROUTINE 
f INSERT WEW ^UNCTIO^'P 
lEVD OFLTMFTER 

J LPS FUNCS 
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9869 






XTIC 


fFTircARG) -RFlTimws OR SETS TTME 


2870 






1 4047 




?R7l 






XSAM 




2R7 2 






1 4001 




2PI73 






XL1i"D 


J FNU^^ (ARG) •L^AnS LEi^S ^ITH ARG 


?874 






1 3630 




?R75 




001 


,ENDC 




2876 


001030 


024130 




IFCLPC) -CT-eAH GRAPHICS FILE 


?877 


00J032 


01 1462 


13462 




?R78 


001034 


024064 


XLP 


IFLPCLOC) *HETURNh LAST LP HITCDUMMY 


2R79 


«0i036 


002740 


2740 




588{? 


001040 


024004 


XYCO 


iFYCOCLOr) -RFTtlRNS Y COORD OF LOC 


2881 


001042 


014153 


14153 




2882 


001044 


024000 


xxco 


iFXCOCLOf) -RETURNS X COORD OF IOC 


2883 


001046 


014133 


14133 




2884 


001050 


023700 


XDIS 


|FDISCLINE,IK'T,BT.INK,LP) 


9885 


001052 


013467 


1 3467 


> »SET MODF np ^fEXT ENTRY 


2886 


f»01054 


023364 


XTXT 


|FTXTCL0C#ABCD5 -IMSERT UP TO 


2887 


001056 


014164 


14164 


14 CHAR.S OF TEXT 


2888 


001060 


023S14 


X5KP 


fFSKPCLOC CiLocan -x^serts a JMP 


2889 


001062 


014054 


14054 


fTO L0C2 AT LOC OR TO TEXT IF MO L0C2 


28«J0 


001064 


023274 


XSFT 


|FSETCriOC,X,Y)»INSERTS IMVTS ABSO,, POINT 


2891 


001066 


014030 


14030 




2892 


001070 


021264 


XPT 


|PPT(L0C»X,Y5 wIWSERT VIS, ABS, PT, 


2893 


001072 


002764 


2764 




2894 


001074 


023254 


XMOV 


fFMOVCli.OC,X,Y) iINSERTS INV, VECTOR 


28^5 


001076 


013742 


13742 




2896 


001 100 


023244 


XVFC 


|PVErcLOC,X,Y) •INSERTS VIS, LONG VECTOR 


2897 


001102 


014067 


14067 




2898 








IIP S0# OUTPUT tilNE NUMBERS, ETC, 


2899 




001774 


<ISIEE*1774 


fSIZE OP NEW GT40 CODE 


39«0 




000000 




29ffl 




000000 






29«2 




002 


, IPDF TERM 


IIP TERMINAL CODE IUCJ^UOEDf 


29ff3 




000150 




iDEPIffE ITS SIZE. 


29<?4 




002004 


GSTZKaGSlZE^ia |AMD 
lENDC 


ALLOW FOR TERMINAL CODE IN MAIN 


2905 




001 




2906 




002 


,IFDP RT 


HP LPS PUNCTONS IN# 


2907 




001 




IIP PULL SUPPORT, 


2908 








1 DEFINE ITS SIZE, 


2909 




002 


*,ENDC 




2910 




003 


\lfV>r NOBUPP 


llF NO BUFFER SUPPORT* 


29 11 






l.PSSI15«250 


fLESS CODE USED 


2912 




002 


,EKDC 




291 S 






l.PSSII«l<PSSIZ*LPBSlii+LPBSIE lAOD IN THE BUFFER 


2914 






GSIXP«GSIZF+10 


fEXTEND MAIN CODE SIZE 


2915 




001 


'.EN DC 




2916 




002154 


FSlZF«GS12E*TERSia;*LPSSlZ iStZK OF DNfelW 


2917 










2? t 8 




023016 


DB0T«KKSIZF-«»F5IZE'«'DDS1KE »END OF FOCAf..»COHR STZE«LOADKR STZfT 


2919 




0016S2 


.sROTTOM 


ITHE GRAPHICS FILE STARTS WHERE FOCAL f'iTSS 


7W 


001 652 


023014 


D8nT»2 




2921 










29^2 




025172 


.■DBOT+FSIZE 


IDTSPLAY FILE FOLLOWS FUNCTIONS 
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5923 




173660 










f^25i 74 


117174 






000000 


?<)'?7 






7978 




U400t^ 


7929 




000000 


7950 


f 252f6 


000000 


7<?11 






29^2 


{^25210 


1 60000 


7Q13 


f 2521 2 


031 772 


7914 




031772 


7935 


{^31772 


1 17124 


?9ie 


031774 


000000 


2917 


<?3!776 


001360 


7918 


0320PIP! 


100000 


7919 






7940 






7941 






7942 




023166 


2943 






2944 






2945 






2946 


023166 


012737 


2947 


023174 


005037 


2948 




002 


2949 


023200 


005037 


29'^0 




001 


2991 




002 


2992 






2993 






2994 






2999 






2996 




001 


2997 


023204 


00S037 


2998 


023210 


012700 


9999 


023214 


012720 


29«fl 


023220 


009020 


2941 


023222 


009020 


2942 


023224 


012737 


29(13 


023232 


004737 


29A4 


023236 


004737 


29AS 






29$S 






2967 


623242 


000207 


2968 






2969 






2970 






2971 






2972 


023244 


052737 


2973 






2974 


023252 


000414 


2975 


023254 




2970 


0S27 37 



025202 
024662 

023156 



024656 



024664 
0292i2 
U4000 



«31772 
024144 
024362 



034666 



DFII.FI 





173660 


fORlGTNAT, STATUS I WOITALICS, GT.O.-; 
lAND STOP 




dpt+fnab 


fPOIWT 'vfODF + R^iaHLt 8TT5 







)SET START OP' GMapHirS TO i^:,,') 


.WORD 






.WORH 


OPT 


1 START OK tlSFR FTI.,F| STARTS ^^ITH PTIMT 





fUSER MAY CHANGE IT 


.wnRo 





J LIGHT PFN HITS SHOW UP TN THFSF. CO*- 
f ORDTMATFS, 


.WORD 


DJMP 


llNlTlALT.Yi JU'-'PS TO TFXT FILE FOLTOWS 


.WORD 


TEXT 






• 6 + DDSliiE-TTSlZF 


ILFAVE ROOM FOR GRAPHICS, 


.WORD 


DPT+ENAB 


IAN*D START TFXT WITH PT, AT (0»700) 


.WORD 







.WORD 


1360 




.WORD 


DCHR 


fCHAPACTER MODF 


fFILF. 


EXTENDS UP INID 


TOP OF CORF, E\'DS WJTH A STOP 



TEXTl 



I THF FUNCTIONS START HFRt, WHFRF FOCAL STORAGF ARFA KNDS 

.COBOT+TFRSIZ+LPSSIZ fMAIv CODE STARTS AFTER LPS AND TtRh'IWAL COUF, IF ANY 



IINITD 


SETS UP 


THF, DISPLAY FILK 


EACH RESTART 


XNITDI 


MOV 


ILOC0#LPLOC 


fSCT LPLOC TO LQC0 




CLR 


MODE 






'.IFDF 


TERH 


fIN TERMINAL HOOKUP* 




CLR 


TOHOST 


f CLEAR FLAGS, START IN FOCAL 




.ENDC 








'.IFDF 


RT 


IFOR LPS, 




TST 


DTIME 


fir TIMER 0, 




BEO 


NOLPa 


IDON'T WRITE INTO DEVICE RFGI, 




CIK 


•iCLKXN 


fELSE, STOP CLOCK, 




CLR 


DTIME 


»AND CLEAR TIMER 




',SNDC 






NQLPSI 


CLR 


STPFLG 


PLET DISPLAY STOP 




MOV 


ILOC«»L0C 


IPTR TO DISPLAY FILE 




MOV 


#OPT#CLOC)* 


ISTART WITH A PT INSTR, 




CLR 


CLOO* 


K0#0) COORDS 




CLR 


(LOO* 






HOV 


IL0Ce«»6*DD8IZE» 


TTSI2E,TXTPT« ILEAVE CELLS 




JSR 


PC#TJUMPS 


fFILL GRAPHICS PILE 




JSR 


PC#TCLEAR 


ISET UP TEXT FILE 



RTS 



PC 



ITHE 4 GRAPHICS FUNCTIONS! ALL 
I THE CORRECT LOC.S AND COORD, S 
I INSERT THEM, 
IFVECI VISIBLE VECTOR 
XVFCi BIS iDVECMODE 



I WITH JUMPS TO TFXT FILE 
lAND START DISPLAY 

lAWD RETT'RN fo START CODE IN FOCAL 
USE THE SAME CODE TO PICK UP 
AND TO 



A a ^ 



BR VIS 
IFMOV, INVISIBLE VECTOR 



I MODE MAY CONTAIM MODES PUT 
tTHERE BY FDIS 
fGO SET VISIBLF BIT 



'.MAIV,#' ^Y11,62f^ 19-MRR,73 nt^i PAGE 64«6 



2977 


{^21262 


00(541 4 








BR 


I?AiV 


J BUT TNVISTHT.f:, DDM'T StT HIT 


2978 










IFPT, 


VISIBLE 


ARSOLiJTk: PniMX 




?979 


P*2^264 


f^52717 




024662 


XPTJ 


PIS 


#DPT#MOr'F 




29R0 


02327? 


!? 4 C 4 








BR 


VIS 




?9P J 












IK'VISIBLE ABSOLUTF POT' 




59R2 


023274 


05 27 3 7 


1 14-H^{? 


024662 


XSKT» 


BIS 






7993 




0004?!4 








BR 


INV 




99ft4 


f233'?!4 


012737 


i»40000 


024660 


VISI 


MOV 


#40000, HiblTS 




290S 


^^25312 










BR 


GRALL 




?98ft 


'02331 4 


00S037 


024660 






CtR 


HIBITS 


1 HIBITS ALRKADY CLEAR # bm MAKE SURE 


29fl7 


^>23320 


(?i047 37 


024176 






JSR 


PCiiOCGO 


tGRT LOCATION OF iST COORD (MO STOP) 


29R8 


f^23324 


013720 


024662 






MOV 


MODE* cr.oc) + 


ISFT MODE 


2909 


023330 


004737 


023344 






JSR 


PCPLUGCC 


rPUT X COORDINATE INTTJ FILE 


?990 


023334 


0(^4717 


023344 






JSP 


PCPLUGCn 


fPUT t COORDIMATF I*^ 


2991 


023340 


000137 


024312 






JMP 


RETMEW 


fRETNEW STARTS DTSPLA^^ AMD EXITS 
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3*<^ / 
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0l9idAA9 
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177774 
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S / v4/ f 
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01 ? 4 A t A 
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^ A i O 


01 % A 1 £ 






3p < 9 


" * 3430 


Ann A 4 ^ 
















a * (naAt 
V I lrJlP40 
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4 aA££0l 
1 rJ4DOlO 




^ A <t 4 


I0« 34 3 n 






3PI?4 


lai v A A a 


4 OA 4 9 f 






01 *) ^ A A A 

3444 






^ j% «k jr 


01 "3 1 AAA 
»* 3440 


wo « 7 B i 


VivY' i BIS 


4 M 4ft *V 


"3 V A H 4 


eil6l<9l'77 9 
K'e!*' / 7 <£ 




% M A A 


fil V Ab A 






<ft M n O 

3(!?9 


A "3 % AC A 


4 4 01 4 901 








atxc 9 9 7 
li?ijJn2 37 




3031 


ffl 1 9 A A A 


M /]l n 7 K K 




« <■ V3 


no 1 AA& 


J * IS S jS ' 




3033 


09iA'r9 


£■101 




J0 1* 




1 000 1 




3 w 53 


1-^ # ^ *t f V 


069701 


000004 


V A 1 & 

503O 


09 )*i09 

1? 41 J Z7 £ 


fli 57*7 


000001 




a94B4 n 

ly 4t J 3 J ir 


0001 ^7 

!P ¥7 4 J f 


024110 


3038 








3039 








3040 
















3042 








3043 


023S14 


004737 


024164 


3044 


0235S8 


052737 


100000 


304S 




013720 


024662 


3046 


023532 


012720 


160000 



024660 



172000 



fPT,UGCO PICKS UP THE NFXT hhCt PUTS TT DISPIAYAHLF 
I FORWAT, ANH F.'OTEPS IT TN 'iMfc: CfJRRFK'T CFLI. 
f OR CftLL PLUGCO OMCF AND START TT WITM J5R PC»PTUf1Cn + 4 
PLIIGrOj MOV LOC-tSP) jSAVF: T.Of bTACK 

FVALH JGFT THK ARG 

FPINT flwTn AC 

WOV fSP)+,LOr IFFTCH LOC 

JSR PC#PUTCO tPIITCO FORMATS IT INTO AC 

MOV ACCI'OO* fPLUr. TT IK' 

RTS PC 

»FTXT WXT.L INSERT UPTO 4 CHAR.S INTO A LOC , , 
f FTXTfLOC,ClfC2»C3,,,,) 

ILFSS THAN 4 ARCS INSERTS NULLS; MORE THAN 4 GOES ON TO NEXT LOC,, 
IFTXT WILL MAKE ALL VALUFS >40 BY ADDING 100 TO THFM IF NECKSSARY 



XTXTi 


JSR 


PC»L0C5ET 


jGFT LOC, TNTO LOC 


MORTXT 1 


CMP 


LOC^TXTPTB 


flP" BEYOND GRAPHICS FILKi 




PLT 


PUTTXT 






SUB 


i6»L0C 


ISFT LOC BACK 1 LOC 


PUTTXT 1 


MOV 


#DCHR# (LOC) 


1 INSERT CHARACTER MODE 




PIS 


MODE# CLOO* 


fAND MODK BITS 




MOV 


i«4fHIBITS 


IHIBITS COUNTS OFF 4 CHAR.S 


ASCIII 


CMPB 


CHARtiRTPAR 


I NO MORE ARCS? 




BNE 








CLR 


AC 


lYFS, INSERT ZEROES, 




BR 


justa 


lAWD STOP GETTING ARG.S 


NOTYFTI 


MOV 


LOC,«CSP) 


fSAVE LOC AROUND EVAL 




EVALU 








FPINT 




INEXT ARG INTO AC 


HAKSURI 


CMPB 


AC|i40 


ITHEN ADD »100 TO VALUES <40 




BCf 


DUNASC 






ADD 


•i00#AC 






BR 


MAKSUR 




DUKASCi 


MOV 




f RETRIEVE LOC 


JUSTit 


MOVB 


AC#CLOC)+ 


» INSERT THE CHARACTER 




INC 


HIBITS 






BLT 


ASCII 


IGO GET NEXT 4 




CMPB 


CHAR#»RTPAR 


lEMD OF ARG,S REACHED? 




PNE 


MORTXT 


INOPE DO ANOTHER LOC 




MOV 


LOC » AG 


pYES, RETURN NEXT LOC 




ADD 


• 4, AC 


IMAKE SURE AC POINTS IN NEXT 




MOV 


ll,#iGTPC 


f RESUME DISPLAY 




JMP 


RETLOC 


IVIA XLP CODE 



024662 



fFSKP INSERTS A BLOCK CONTAINING A JMP TO SOMEHWERE IN THE GRAPHICS 
t FSKP(LOC) INSERT A JMP TO THE TtnXT FILF AND CLFARS THE TEXT FILE I 
f F5KP(LOCi#LOC23 INSERTS A JUMP TO LOC 2 
XSKPi JSR PCiLOCSET iGFT 1ST LOC, INTO LOC 

BIS #100000, MODK IMAKF MODE INTO CHAR MODE WORI) 

MOV MODEiCLOO* fINSFRT MODF OF JUMP 

mOV #DjMP|!fLnC)* iInSFRT ,tU"®r 







620 19» 


MftRf73 


13J01 


PAHK 65«1 




f 






( 












1 




3047 


W 2 3 5 3 6 


1 f " 4 6 








MOV 


LOC 1 '(SP) 


fSAVK T,OC, 




02354'?' 


1 ?. .5 7 


5^ 2 4 6 6 6 


?*24660 




^*ov 


TXTPTRfHTBTTS 


fSAVf'" OLn Tt;XT START 


3049 


023546 


1 2 4 ? 7 


.■I ('■* 1 1 








CHAR > #RTP/iR 








^J'- i 4 3 3 








BEO 


TXTJMP 


f*HICH MFAN5 JMfvip TO r^XT 


3C^*il 


023'>«>4 


1 4 fj fi 








»^VflLU 




tCrt 2ND ARG 


3(?52 


023556 


37 


001 






TST 


HORD 


»0!W ARC <0, 


3(?f?3 


02 3562 


00241 I 








RLT 




iJt'MP TO START OF DISPLAY FlLt 


3054 


023564 


12 3757 


0016 J 6 


00001 4 




CMPB 


8E# » 1 4 


fOW POTENTIAT. INTyaF.R OVFRFLOw, 


30IS5 


023572 


003020 








BGT 


LEAST 


fUSE END OF TF;XT 




023S74 


5'07045 








FPMUL+TMMED 


fCALCULATt: 2^'i; LOCATION 


3057 


^23976 


000003 






FP6I 


3 




fLOC2»3 WORDS 


3«?f58 


023600 


060000 








60000 






3P)59 


023602 


00707 1 








FPINT 




>I*^AKF AM INTFGFR 




/>t ^ H ^ A Jl 

iR23604 


000402 








BR 


NOTBAK 




30AI 


023606 


012701 


1 77770 




NOTKXTl 


MOV 


••10#AC 


lJUMP TO START OF FILE 


3062 


02361 2 


062701 


025202 




NOTBAKi 


ADD 


#LOC0»AC 


1 ♦START OF FTLFCtOC0) 


30fi3 


5523616 


1 02406 








BV5 


LEAST 


ton OVERFLOW, L0C2 TOO HIGH 


3064 


023620 


020137 


024666 






CMP 


ACTXTPTR 


IIF 2ND LOC OVERLAPS TEXT, 


30fi5 


023624 


003421 








BhF. 


INFILE 




3066 


023626 


020127 


037662 






CMP 


AC, »LOC0^64-DDSIZP»110 iTEST FOR BEYOND WHOLK FTLK 


306? 


023632 


002406 








BLT 


MOfOtJT 




3068 


023634 


012737 


037662 


024666 


LERSTI 


MOV 


lLOC0«»6*DDSlEEw 


110,TXTPTR ITEXT ONLY ONE LINF 


3069 


023642 


013701 


024666 




TXTkJMPi 


MOV 


TXTPTR,AC 


flF OUT, MAKE ITA JUMP TO START OF TEXT 


3070 


023646 


000402 








BR 


WAYOUT 




3071 


4 A ff 


010137 


024666 




NOTOUTt 


MOV 


ACTXTPTP 


1 CLEAR OUT TEXT FILE 


3072 


n 4 £ |p A 


A i A *t A A 

01 3700 


A J £ £ A 

024660 




WAYOUTI 


MOV 


HIBIT5,L0C 


ISET UP LOC FOR TJOMPS WITH OLD TtiXT START 


3073 


023660 


0047 37 


024144 






jsn 


PCTJUMPS 


fADD JUMPS FROM OLD START TO NFK START 


3074 


W23664 


004737 


024362 






JSR 


PCTCLEAP 


ISTARTING AT 2ND LOC, CLEAR TEXT 


3075 


3670 


012600 






INPILLI 


MOV 


fSP)*,LOC 


fCET LOC FROM STACK 


3076 


/X Aft & y MA 

023672 


010110 








MOV 


ACiCtOC) 


lAWD INSERT THE JUMP ADDR.CNO 3RD WORD) 


3077 


023674 


000137 


024312 






JMP 


RCTNBW 


fDONE, GO RETURN s|EXT FREE LOC 


3078 
















3079 


















3080 


















30 f I 










IFDIS SETS UP 


MODE WITH THE SPECIFIED MODES, THE NEXT EKTRY IN THE 


3082 










IFDIS SETS UP 


MODE WITH THE SPECIFIED MODES. THE NEXT ENTRY IN THE 












1 GRAPHICS PILK 


USES THIS MODEf 


THEN CLEARS IT, 


3094 










fPDISCLIKETmE««l3 ,lNTENSITYt0 


•73 ,BL1HK t0»13 ,L,P, C0«13 3 


309B 


023700 


007071 






XDISl 


rPiNT 




IGET LIME TYPE IMfO LOW BITS 


30f!6 


023702 


0101 17 


024662 






MOV 


AC«HODE 


f ENTER THE LINE TYPE 


a M jk w 

30i7 


025706 


049737 


177770 


024662 




Bie 


#177770, MODE 


IMAKE SUBE NO OVERFLOW 


3098 


023714 


104660 








FVALU 




IGET INTENSITY 




0^37! 


007071 








FPINT 






3090 


025720 


000301 








SWAB 


AC 


IPUT IT BITS 7,8,9 


3091 


023722 


006201 








ASR 


AC 




3092 


0*3724 


042701 


176177 






BIC 


»176177#AC 


fNO OVERFLOW 


A M A M 
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/j| n M » A 

023730 


0101 37 


024662 






BIS 


AC, MODE 


lENTER JW MODE 


5094 


023734 


104660 








EVALU 




fOET BLINK 


S09S 


023736 


005737 


001620 






TST 


HORD 


fPOS HORD MEANS BLTNK 


3096 


w/3742 


001403 








BEO 


NOBLI 


3097 


»«3744 


052737 


A A A n A 

000010 


024662 




BIS 


»10,MODE 


fSB:T BLINK BIT 


3098 


025752 


104660 






NOBLII 


FVALU 




>GFT LITF PEN SKNSTTTVITY 


<i a A Q 


If « 3 7 5 4 
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HORD 
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001403 
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MOV 
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MOV 
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(LOC)»AC 
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BIC 
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OUTCOl 


JSR 
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RTS 
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TST 


AC 






BNE 


RETNOW 
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CLR 
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fWAIT *0F LP Mil 


RETNOWl 


TST 
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BEQ 


RETNOW 






l«OV 
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IGET ADDRESS 


RETLOCI 


SUB 


IILOC0«4,AC 






JSR 


PCfLOAT 


IPLOAT IMTO FLAC 




FPDZV«0IRECT#rP6 


1/3 TO GET LOC FOR USER 




PPfNT 








RTS 


PC 


IBACK TO FOCAL 


fXCLR CLEARS THE SCREEN OF GRAPHICS 


XCLRl 


JSP 


PCLOCSET 


IGET APG AND STOP DISPLAY 




JSP 


PCiTJUMPS 


ICLEAR THIi: SCKEE^.' UP TO TEXT POINTER 




JMP 


RETNEW 


r RETURN ARG4t AND START DISPLAY 



GEND», 



iINSERT LPS CODh: nO>^, ir knY 



3155 

n\m 

3159 

3lfi2 
3lft3 
3lft4 
3165 
31^6 
318? 
31^8 
31*9 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
117? 
3178 
3179 
3180 
31*11 
3lfl2 
3lfl3 
31 

3185 
31«!6 
31«7 
3lf8 
3189 
3190 
3191 
3192 
3193 
3194 
3l9B 
3196 
3197 
3198 
3199 
32fl0 
32«1 
3?t«2 

35!«!i4 
32«!' 
3?fll6 
32«"7 
S2(«8 
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.IFDr PT 



fLPS FUMrTIONS 

tSTAPT THKSE AT RriTTHM OF DN'Fa HO PATMCARLV nur 



,IFOF M08UFK 

jXSAM SA^'PT.ES THE ANALOG CHANNFL COMTAT^JFD !»' TKF Fiif-CTinr- ABG 



XSAMi 



NOADi 



0«2 



FPTNT »GET CHAN^'EL 1^10 AC, 

SWAB AC fHIGH BYTE 

r.NfB AC fSFT FWA8LF BIT(#»»»OH SFT BTT 4 FOR SfHMlTT) 

MOV AC,&»ADIN flMlTlATF A/n 

TSTB i#ADlM IDOME? 

BGT WOAO tIF NOT, WAIT 

WOV ftlADIN + 2,AC IGET THE VALTTE 

JSR PC,ri*OAT UNTO FLAG 

PTS PC 

,EMDC 



.iFNDr HOBUFF 



fIF BUFFERED FSAM, 

f START OF BUFFER 
ILEAVE ROOM won BUFFER 



fXSAM STARTS AD CONVERSIONS DEPENDING UPON THE 
fTyPE AND NUMBER OF ARGNUMENTS, 

tow. ARG POSITIVE DOBS OWE SAMPLE AND RETURNS ITS VALUE, 
I ONE ARG NEGATIVE RETURNS -NTH SAMPLE IN BUFFER 

ITWO ARCS, 2ND POSITIVE SAMPLES 2N0 NUMBER OF POIMTS INTO BUFFER 
J TWO ARSS, 2ND NEGATIVE SAMPLES 2ND NUMBER OF POIMTS BUT WAITS FOR 
I SCHMTTT TRIGGER BEFORE STARTING 

f THREE ARCS SAMPLES TWO CHANNELS ON EACH TIC, 1ST ARG AND 3RD ARG 
XSAMI 



FPINT 




IGET 1ST ARG 


T8T 


• CSf>) 


lUSE STACK AS TEMPORARY 


NOP 




l»#»*DEBUG 


MOV 


kC$hOC 


fON NEG, ARG 


NEC 


hoc 


IMAKE AN INDEX INTO BUFFER, 


ASL 


LOC 




BGT 


RETDAT 


lAND JUST RETURN DATA 


BIC 


#477770, AC 


I ELSE 


VOV 


AC»tSP3 


fSAVE CHANNEL 


SWAB 


AC 


JANO MAKE AD CONVERSION WORD, 


INC 


AC 


fWITH START BIT ON 


MOV 


ACLPREG 




MOV 


i2,L0C 


ISET LOC TO 1 POINT 


CMPB 


CHAR,#RTPAR 


PAND IF NO MORE ARCS, 


BEO 


8AML0P 


>G0 SAMPLE ONCE 


MOVB 


t4i^»LfRGG 


lELSF SET CLOCK OKLOW BIT 


EVALU 






FPINT 




lAND GET NflMPF.R OF POINTS 


MOV 


ACLOC 


lIF <«0 POIWTS, 
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rOCGT,002 

3209 

1?12 
3?13 
1^14 
321 5 
1216 
3217 
12^8 
3219 
3220 
3221 
3222 
3223 
3224 
3295 
3326 
3227 
3228 
3229 
3230 
3281 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
S24i 
3242 
3243 
3244 
S24S 
3246 
3247 
3248 

3249 0ei2 

82«0 

3251 

3252 

3993 

3254 

12S5 

3256 

32S7 

325S 

32§9 

32«0 

3261 

3262 
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NOSH 








LOC 


IMAKK POSITIVt^, 




I. ij n 


" V W ^* i ■ ^ 






V 


»20Si^b ■ SI ftCTih T ^ 


fAMD mAKF CT,nCK -aAIT FOR tiCH'^lTT 


U o n 1 


r MP 




|0N VnRF PniMTS THAM SPACf. 




n T c" 








" ij V 




JDECRKASP- TO MAXT'^IIIM 


O X r. U f\ i 


& ST. 

H O L-i 




|MAK?^! AM IHDFX 






ABAD 


ton ? POINTS RKQTIESTFD, tlUST RFTl'H! 




1^. {'I D 


CHAR# IRTPAR 








O ft ™ *J ^' * 






MOV 




fSAVE LOC AROUND ARlTHMtTlC 




PVfc fill 




fMOW GET 2ND CHANNFIj, TF ANY 




F « 4, )' 1 








~ V V 










#177770, AC 






MOV 


AC, CSP) 


IPUT IT OVER 1ST CHAMNFL IN STACK 




MOV 


LPREG,9«ADIN 


fSTART CONVKRSIONS 


JV U B U 1 




aiADIN 


fWAIT FOR t5nME FTjAG 




P Mr. 


VOAD 






MOV 


9»ADIN*2,LPSBUFCL0C3 lEMTEK VALUE IN BUFFER 






r.oc 


IDECR, COUNTER 




UC'C 


LOC 








DUNAD 


ITILL EXIT 




MOP 




l#*««DEBnG 






ji#ADlN + l,(SP) 


lIF 2ND CHANNEL DIFFFRENT THAN 1ST 






SAMtOP 






1" w V D 


fSP3,9«AniN*l 


lASK FOR AD RIGHT NOW 




TNT 


9«AD1N 


fBY SETTING START BIT 






NOAO 


ITHEN GO GET THE VALUE 


nitu&n 1 

uu ™ « U 1 


v.- *)P 


(l#ADIN 


fSTOP A/D»S 




NOP 




|***«DEgUG 




TtT 




IPOINT INDEX TO LAST A/D 


RETDATI 


WOV 


LPSBUFCl^OO^AC 


IGET THE VALUE, 




JSB 


PCriiOAT 


>INTO THE FLAC 


A8ADI 


fST 




I AND RESET THE STACK 




RTS 


PC 


}A BEAUTIFUL ^08, 




'.WORD 





tCOHTAINS SAWPLIHG WORD FOR DEVICE 











IXLED TAKES THE VALUE IN FLAC ANn PUTS IT IN THE LEDS 

XLEDi CLR HIBITS iCLEAR A COUNTER 

TST HORD fON NEGATIVE VALUE, 

BLT NEGNUM 

MOV #24l3,«i#T.EnGUT 

BR NUMLOP 

NEGNUMl FPABS IMAKF IT POSITIVE, 

mOV »24iS, P#t,EDOUT iSET T*r Lr.B TO 'm' 



'.MAIN, /■ 
3?ft3 

^?67 

"5269 

3270 

1?7l 

3272 

1273 

3274 

^276 

3276 

3277 

3278 

3279 

3280 

32fiJ 

32ft2 

32ft3 

32«4 

3295 

32«6 

32ft7 

32?8 

3289 

32«» 

3291 

3>»9a 

3293 

1294 

3295 

3296 

3297 

3298 

3299 

33«0 

33«1 

S3CI2 

33^13 

3304 

3308 

33«6 

33«97 

33ff8 

3309 

3310 

331 1 

3112 

33!3 

3^14 

3315 

33! 6 
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FPINT 


IGFT VAL'?E 


l< A IF 


AC'-fSP) 


|0^^T^ STACK 


Frn I V+I 


MMED 


IDTVIDF VAI.UF RY I?'! 


4 




fFP 5 


n k m nL /X /3 








PC| XITR 


»GFT INTEGER PART 






?AMD RFSTORE kESS REMAINnfiP 


FPINT 




fGET THIS VAtUF 


SUR 


AC, C5P) 


thm FIND DIFFFRENCE 


ADD 


HIBITS, (5;P5 


f ADD DTQfT SHO^'N 


MOV^ 


fSP)+ia#LEDOnT 


lAMD DISPLAY NUMERAL 


FPPIV+D 


IRECT#FP10 


fDIVlDE TO GKT NFi^ VALUE 


INCB 


HIBITS+l 


rBOP COUNTER 


CMPB 


HIBITS+i,l4 


lAND DO , 


BLE 


'^UMLOP 


fS DIGITS 




PC 





pXTIC SETS THE CLOCK, On POSITIVE ARG# IT MAKES THAT MANY 
p 1/100 •§ THE IMTERVAL, AMD SFTS THE TIME TO 0, 
ton ZERO ARC, IT RETURNS THE TIME, 

fOK NEGATIVE ARG, IT WAITS FOR THE NEXT TIC, THEN RETURNS THE TIME 

IGET THE ARG 
f NEGATE THE ARG 

ION ARG ,LE, 0# RETURN TIME 
PELSE SET CLOCK INTERVAL IN PRESET, 
pAND START CLOCK AT 1/10000 
pAND SET TIME TO 0, AND RETURN 
NOSETI PE(? CLKLOP pON ARG ,LT, 0, 

PSET TIMER POSlTIVEi 

PAH0 WAIT FOR CLOCK INTERRUPTS, 
pTO SET IT ,Li, 
P(MAKE POSITIVE) 
PIWTO FLAC, 
PAMD RETURN IT 



FPINT 




WEG 


AC 


TST 


AC 


BGE 


NOSET 


MOV 


AC^iPRESET 


MOV 


I507»f ICLKfN 


CLR 


DTIHt 


PE(? 


CLKLOP 




ACDTIME 


MOV 


DTI ME, AC 


BGt 


CLKLOP 


free 


AC 




PC, FLOAT 


RTS 


PC 



pCtKINT HANDLES LPS CLOCK INTERRUPTS, 
PTHE INERVAL IN i/i00»S, 



IT iNCREMEf^TS THE TIME BY 



CLKlWTl 


DEC 


DTIME 




BVC 


KOAROV 




CLR 


DXIME 


KOAROVl 


RTI 




DTIMEP 


^om 






pdecrement timer 

pif arithmetic overflow, 

pclear it 

pamd return 

P TIMER 



,ENDC 



'.MATM, MACYir,620 l9i..MAP«71 Ul01 PAGE 65»6 



3317 

3338 

3319 

33?P 

3391 

3392 

3393 

33?4 

33?5 

3336 

3197 

3398 

3329 

1330 

3331 

3332 

3333 

3334 

3335 

3336 

3337 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

33*i0 

3351 

3352 

3393 

3354 

3|5B 

3S56 

3357 

3358 

3359 

33«f> 

3361 

S3<^3 

3363 

3364 

336S 

3866 

3367 

3368 

3370 



024144 
02415e5 
0241R2 
024154 
024156 
024162 



024164 
024170 
024174 
024176 
024200 
024202 
024204 
024206 
024214 
024216 
024222 
024224 
024296 
024230 
024234 
024240 
024242 
024246 
024252 
024256 
034262 



024264 
024266 
024270 
024276 
024300 
024304 
024310 



024144 



013701 
020001 
002401 
000207 
012790 
000772 



005037 
005737 
001775 
007065 

000000 
P00000 
007071 
123727 
003012 
007040 
007073 
007071 
010100 
062700 
020037 
002410 
013700 
162700 
00S487 
10S437 
000207 



,aGEND 



I START GRAPHTCS CODfc; WHF.RK IT LPFT OFF 



005701 
002004 
052737 
003401 
053701 
005037 
000207 



024666 



164000 



024664 
024664 



ITJUMPS ADDS DJMP,TKXI>!d CFLI>S STARTING AT THF ADDRESS IN hor ffNTIL 
1 THF ADDRESS IV TXTPTR 



T JUMPS I 
K'OPLOPI 



MORNOPI 

ILOCSET 
f 3 AND 
LOCSFTI 
STII.ONI 

I.OCGOI 
NEWLOCI 

I.OCGETI 



MOV TXTPTR, AC 

CMP LOCfAC 
RLT MORNOP 
RTS PC 

MOV #D^mP#(LOC)+ 
BR NOPLOP 
GETS LOG ARG INTO MfcWLOC 
ADDS START OF FILE", tOC 
CLP STPFLG iCLfc-AR F 

TST STPFLG 
PEO 5TIL0N 
FPPUT+IMMED 



FPINT 



fPUT LAST ADDRESS IN GEN, REG 

tKILl/ED TO TEXTPTK? 
fYES, RETURN 
IDNOP A WORD 

, TEST FOR IN RANGE, MULTIPLIES BY 
ENDS UP CONTAINING ADDRESS OF CELL 
LAG SO DISPLAY WILL STOP 
fWAIT TILL STOP INT, RESETS IT 
fNOT DONF YET 

ILOC, FROM FLAC INTO NEWLOC FOR RETURN LATEH 



001616 






CMPB 


BE,N14 






BGT 


TOOBIC 


023576 






FPMUL+DIRECT,FP6 








FPABS 










FPINT 










MOV 


AC#LOC 


025202 






ADD 


#LOC0,LOC 


024666 






CMP 


LOG, TXTPTR 








BLT 


BELOW 


024666 




TOOBlCi 


MOV 


TXTPTR »LOC 


000006 






auB 


»6,L0C 


024202 








NEWtOC*? 


024201 






NECB 


NEWLOC*! 






BEILOIft 


RTi 


PC 






IPUTCO 


TORHl 


AN IMTEGER VALUE 






f FOR D 


Z SPLAY 


IN AC, HISITS a: 






f CALL 




MOV COORD 






» 


kTSU 


PCPtlTCO 






PUTCOl 


TST 


AC 








BQE 


POSCO 


020000 


024660 




RI5 


#a0000#HI»lTS 








NEG 


AC 


024660 




POSCOl 


BIS 


HIBITS,AC 


024660 






CLR 


HIRITS 








RTS 


PC 



f INTEGER PART OF 1ST ARG 
ION POTENTIAL OVERFLOW, 
fUSE LAST LOC, 

|N0« CALCULATE ADDR, 
fGFT RID OF POSSIBLE NEGATIVE 
flNTFGER12E IT 
fLOC HAS ADDRESS OFFSET 
pNOW IT HAS THE ADDRESS OF THE BLOCK 



pON ABOVE, MAKE LOCuLAST LOC 

I MAKE RETURNED LOC NEG, ON ERR 



024313 012737 000001 



IGET COORDINATE 



fOM NEGATIVE COORDINATE, 

PSET NEGATIVE BIT 
PMAKE POSITIVE 

fPUT IN VISwlNV AND NEG-POS BITS 
pAND CLEAR HIBTTS FOR NEXT TIME 



IRETNEW STARTS THE DISPLAY AND RETURN THE CALLER HIS LOC ARG PLUS 1 
172000 RETNEWi MOV n#S»#GTPC jREpSTART DISPLAY 
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3371 
^372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
33R0 
3311 
33fl2 
3383 
33(|4 
33116 
3316 
33S7 
33R8 
3389 
3390 
3391 
3392 
3393 
3394 
3398 
3596 
3397 
3398 
3399 
34^0 
34^1 
3402 
34«3 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
5490 
3421 
34512 
3493 
3424 



^243?? 


005037 


024662 






CLP 


MODE 


lONLY USE THE SETTING ONCE 


c^24374 




024200 






rPfiET+DIRECTiNFWLOC 


f ORIGINAL LOf, IWTO FLAG 


5^2433^ 


00701 5 








FPADT) + TMMED 


lADD 1 


«?24332 








FPl 1 


! 






024334 










40000 






024336 










PTS 


PC 


1 RETURN TO FnCAL 










P FLOAT 


FLOATS 


THE INTEGER IN AC 


INTO THE FLAC 


0^4340 


«?lv>737 


000017 


001616 


FLOATI 


MOV 


#17, BE 


ITO POWER 17 


024346 


010137 


001620 






MOV 


AC#HORD 


fAMO HORn MANTISSA* 


024352 


005037 


001622 






etp 


LORD 


»BUT NO LORD 


024356 


007070 








FPWOR 




fNORMALlEE RESULTS 


024360 


000207 








RTS 


PC 


t RETURN TO CALLER 










iTCliEAR 


RESET 


THE TEXT flliE TO 


START AT TXTPTR AND CLEARS IT 


034362 


010046 






TCLEARl 


MOV 


LOCi»{SP) 


ISAVE REGISTER 


024364 


005037 


024674 






CLP 


tPft 




024370 


005037 


024670 






eiiR 




ICLEAR COUNTER AND FLAG 


024374 


013700 


024666 






MOV 


TXWR.IjOC 


fSET UP THE POINTER 


024400 


012720 


170040 






MOV 


• 170040, CLOO* 


IRESRT STATUS FOR NO ITALICS 


024404 


012720 


117124 






MOV 


iopt*enab# efcoCH >put im abs pt,» defaults enabled 


024410 


005020 








CLR 


CLOO* 


»X«0 


024412 


012720 


001360 






MOV 


n360#(Iif>C)* 


)lfai400 


024416 


012720 


100000 






MOV 


• DCHR#Cl*0C1* 


1 CHARACTER MODE 


024432 


010037 


024672 






MOV 


loc#imptr 


llMPTR POINTS TO 1ST BYTE 


024426 


005020 






Cl^RLOPl 


CliR 


CLOO* 


ICLEAR FILE 


^24430 


020027 


037772 






CMP 


L0C|II*0Ci»6*D0SIEE i REACHED ENDf 


024434 


002774 








BLT 




INO 


024436 


012720 


160000 






MOV 


•DJMPittiOCJ* 


lINSERf JUMP, 


024442 


012720 


02S172 






MOV 


»DPILg,(IiOeU 


ITO START or TEXT 


024446 


012777 


000177 


000216 




MOV 


•177|0IHPTR 


I INSERT CURSOR AT START OF FILE 


0244S4 


010637 


024664 






MOV 


SPfSTmC! 


lAND SET STOP FLAG TO START DISPLAY 


024460 


012737 


025172 


172000 




MOV 


•DPILE,I#GTPC 


f START DISPLAY 


024466 


012600 








MOV 






024470 


000207 








PTS 


PC 





ITSTERR COMPLETES KEYBOARD IMTER»0PT ROUTIMC, IT MILL RESUME 
fTHE DISPLAY ON AN ERROR SO THAT USER CAN STOP HIS PROGRAM BUT 
ISAVE HIS DISPLAY BY OVERFLOfflNG THE INPUT BUFPeRC2 CHARS) 



024472 100401 

024474 104645 

024476 012637 

024502 000002 



001636 



TSTERRI BHI K018 

ERROR«20Ui8,tl8'. 

N018i MOV C8P)*#KIN 
RTI 



I YES, NO OVERFLOW 
»AND GIVE ERROR 
I GET CHAR 



fRESETD MILL CLEAR THE STOP FLAG AND RESTART THE DISPLAY ON AN EFROR 



024504 013701 001604 
024510 010637 024664 



RESETDl MOV 
MOV 



PCF,AC 
SP,STPrLG 



lEXECtJTE OVERLAYFD IN5TR, 
fSET THE STOP FLAG 
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3425 


2 4 S 1 4 


w J 27 37 


A 1 C 4 ^ D 

0/3 172 


3426 


«'24522 


*?Mf^ 1 37 




3427 








34?8 








3429 








3431? 








3431 








3432 








3433 








3434 


w24526 


010146 




3435 


024530 


01 3701 


A K 1 A It 

W25Z02 


3436 


024534 


042701 


165777 


3437 


» 24540 


CO 1 423 




3438 


024542 


01 3701 


1 72004 


3439 


^24546 


012737 


040000 


3440 








3441 


024554 


001402 




3442 


024556 


052701 


040000 


3443 








3444 


024S62 


010137 


A n M n A jt 

025204 


344S 


024566 


01 3701 


172006 


3446 


024572 


042701 


176000 


3447 


024876 


020127 


A A 4 J A A 

001 4ne 


3448 


024602 


002402 




3449 


K>240fl4 


A i V% 11 fl 4 


081 1 J77 


34519 


a ? A & 4 a 


V 1 >' 1 -9 ' 




3451 


»'Z4o 1 4 


01 3737 




34S2 




A4 4*1 

wl Z7 3 7 




3453 


01 1 > A A 

w<4o30 


n 4 1 £ A 4 




3454 




A AAA A ^ 




S45S 








S45* 








8457 








3458 








3459 








3460 








34«1 


A O J £ f> A 

0«4o34 


A AM 4 V ^ 

009737 


ai9A4LA A 

02€oO4 


3462 


t9«4D40 






3463 


024642 


0127S7 


025174 


1464 


0246S0 


010637 


3 4 6 6 4 


3465 


024694 


000002 




3466 








3467 









172000 



025204 



024656 

172000 



I7200f 



MOV »LOC0*10#^#CiTPC fSTART DISPLAY 

JMP ERR2+S0 



ILPINT HANDLES LIGHT PEN IMTRRRUPTS, THESE OCCUR WHENEVER A LT IF 
f USER OTFINEO AS LP SENSITIVE GETS HIT, 

I THE LP INTERRUPT ROUTI^K SIMPLY TAKES THE COORHS OF THE 
f PUTS THEW IN LOG AND TAKES THE ADDRESS OF THE HIT AND 
I IMTO LPLOC, 
LPINTI MOV ACftCSP) 

MOV LOC0»AC 

BIC #163777»AC 

BEG NOLPCO 

WOV (»»GTX,AC 

BIT »40000#LDC0*2 



HIT AMD 
PUTS IT 



ISAVE REGISTER 

ION CHAR MODE OR JUMP IN LOC0# 
fCBITS 1! AND 12 MOT SET) 
fDON'T INSERT 
I USE AC AS TEMP 

I TEST WHETHER COORDS IN LOC NOW 
fARE VISTBLE 



BEO INV0 

BI8 #40000, AC 

INV0i MOV ACiLOC0*2 

MOV iiGTYiAC 

BIC 1176000, AC 

CMP AC# 11400 

BLT ONPIC 

MOV 11377, AC 

OfiPICt MOV ACiLOC0«4 

NOLPCOl MOV §#CTPC, LPLOC 

MOV ll^liGTPC 

MOV (SP)+,AC 
RTI 



lir NOT, SET INV BIT IN 

INEW X COORDINATE 

f INSERT THE LP HIT COORDINATES 

I GET GTt , 

I RID OF CHARACTER REGISTER BITS 
I AND MAKE SURE NOT ABOVE SCREEN 



IMOVE Y COORD IN NOW 

INOW SAVE PC AT TIME OF HIT 

tRESTART THE DISPLAY WHERE IT LEFT OFF 

IRESTORE REGISTER 

I AND RETURN 



liTPlNT CHECKS SfOP FLAG WHENEVER THE GT4f RIACHE* THE END OF THE 
IDISPLAY FILE, IF SET, IT RESTARTS THE DlSPtAY, IF ZERO, IT SETS 
I IT BUT DOES NOT RESTART THE DISPLAY 



STPlNTt TST 
BCQ 
MOV 

STOPITl MO? 

BTI 



STPFLC 
STOPIT 

IL0CS<i6it«aTPC 
SP^SffFltS 



HF»f, DON'T START DISPLAY 
I ELSE, START IT AT LOC0 
fin AMY CASE, SET FLAG 
I AND RETURN 
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1469 

.1470 

3471 

1472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

34111 

3492 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3499 

349«» 

3497 

3498 

3499 

35010 

35<ll 

3502 

3503 

3504 

3501 

3506 

3S07 

3508 

3509 

3510 
3511 
35! 2 
3513 
3514 
3515 
3516 
3517 
3««8 
3519 
35?f 
3571 
352" 



'324656 
024660 
^24662 
?'246ft4 
«?24666 
024670 
024672 
024674 



f STOARA(^E AREA 



02525^2 

000000 

024676 



010052 
010052 010446 
0100S4 023727 
010062 001402 
010064 000137 
010070 000137 



003042 
003042 000137 



00U34 



001634 
177700 



001762 
001762 177700 



024676 



001634 175614 

024720 
024734 



024676 



HrBITSl 

STPFtGl 

TXTPTRl 

EMDrt.Gl 

TNPTRI 

liFSt 



'.WORD 
.WORD 

J WORD 

.WORD 
'.WORD 
.WORD 
, WORD 



LOC0 





1 









fADDRfelSS OF T.AST LTTF PK^ HIT 
f VISIBLE A^JD NFGATTVF BITS OF MODK 
IMODK nr H¥XT nATiJM fSFT BY FDTSl 
f>0 TELbS STOP IK'TERRUPT TO RESTART 

IPOINTER TO START OF TEXT FIT,!;; 
fFLAG WHEN TEXT F1LE»40 REACHED 
fPOlWTER TO »JEXT BYTE IN TEXT FILE 
I COUNTER OF LINES USED ON SCREEN 

I MAKES CURRENT Ll^tE THE LAST 



NOSI 



.iXOUT 

MOV 
CMP 

BEQ 

jnp TXTDIS 
JMP NOSHOW 



CHAR#«t(8p) 
OUTOEVplTENOOT 
NOS 



.•OUTT 

JMP TSTTXT 

.■OUTDEV 
'.WORD 177700 

.>9ERR24>10 
.WORD 177700 



I SAVE OUTPUT CHARACTER 
pON ALL BUT TEH OUTPUT, 

»NOW DO MORE 



I GO TEXT FOR GRAPHICS OUTPUT, TOO 



I HAKE GRAPHICS DEFAULT OUTPUT MODE 



I ALSO DBFAULT AFTER ERROR (OR "C 3 



024720 

024724 
024732 
024734 
024740 
024''4 3 
024744 

024750 
024756 









ITSTTXT 


RETURNS 


WITH % 817 tef 


025727 


001634 


177S64 


TSTTXTl 


CMP 


OUTDEV, ITPS 


001403 








BCQ 


EDITIT 


023727 


001634 


177tei 




CMP 


OUTDEV, 1177780 


000137 


0030S0 




EDITITI 


JMP 


0UT1f*6 








iTEXTDia DISPATCHB8 TO TXTMAM j 


004737 


025000 




TXTDISI 


J8R 


PCfTXTHAW 


023727 


001634 


177700 




CMP 


OUTDEV, #177700 


001420 








BEQ 


N08EMD 


013704 


001634 




N08H0WI 


MOV 


OUTDEV, CHAR 


105714 








T8TB 


OCHAR 


100376 








BPL 


• •2 


111664 


000002 






MOVB 


•8P,2(CHAR1 


002 








, IFDF 


TERM 


023727 


001634 


175614 




CMP 


OUTDEV, ITENOUT 


001006 








BNF 


N08CND 



fOISPLAY ALL BUT 10 OUTPUT 
fIF SCREEN OUTPUT CO S) 
IDON'T OUTPUT THIS CHAR, 

I WAIT FOR XMIT READY FLAG 

fNOW 5EKD THE CHAR, 

ITHEN IF PtsPmiO) OUTPUT, 
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A0m7 17 
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1 K 4 d 


it St f n ^ 










* f n 








■5 r5 / D 












0247*7 5 


r/ F' f r* A 






3 / o 










■3 57 ' 


It* « ^ f ' "1 


(It 1 9 A0I4 








024776 


00c^20S 
















•3!) T « 










1^ " J 










1 e « A 

33 1* 










3530 




















3517 




















4 fl V Q 


W c BiWlC' 


Dl 1 01446 






3540 




a 4 4ftfl4 






V ■ j| 4 

3541 




01497014 


01 01 0(901 £1 

W ft 1/ iw 




V ■ J 9 

354« 


n • a B J < 


1 901497 


000007 

4tr V IE/ r " r 




3543 










%m A A 
354* 




Aaa 9 1 7 

VI09 A 3 / 


1 1 AvwA 






019Ma<9 A 


AAaAKA 






9 B il C 

3546 


£»9||an A 


1 9fl497 
1 AW* A f 


V V 17 V Jl ^ 




V ■ J T 


019110119 


dfll 01019 






* ■ il B 


K> iC 3 10 J V 


1 4 97014 
lie f Vt 


0100044 




3943' 


01 9k a A 01 


4 901497 


010)010)1 t 








01 0t 1 49 ^ 












0I0I0I01 1 1 
VHDK) 1 A 








aa 4 A0I A 






t ■ ■ V 

3553 


0l9KaM A 


4 9aA97 

I Alf74 A r 


0100040 




1 M K A 

3554 




0)019416 






3950 




aaaAt A 








W » 3 CI V 


Tj %l ^ m tit f 


024674 




V ■ K <f 

39" 7 




A0)<I7 %7 

WIT J f ^ f 


034670 




9 ■ 

3598 


IS4C9I974 


AM 4 aaA 






s « ■ 
359" 




0191797 

V A 3 t A 1 


094474 


000040 

IV V V W ^ 


SSOB 


£(9>4 AA 
t0«9lP4 








15** 


a9a 4 Aft 

nAgl0O 


ftfl47 17 


094349 

l> A * » • 




Jose 




010} 11491 






<1 ■ « 4 

3963 


ffl9H4 4 A 
1949 1 1 * 


1 f 014*7 

1 ll?*7 1 






35b4 




0191797 

V A 9 f A 1 


094679 


037770 


35S5 


A}* 4 9& 

WAS 1/0 


vv A 9fi f 






35110 


019114 lA 
WAS 1 9V 


0191797 

V A 3 f A 1 


024673 


017663 


3597 




01 0194019 

WWA*f A 








02S140 


005237 


024670 




*5S» 


024144 


00S217 


024672 






02S150 

XT M ill J, iSI 


112777 


000177 


177514 


■13 7 * 


02«1«4 


012604 






3172 


035160 


000207 






3SfS 










IS 7 4 










35?S 










35?S 




002 







TST 

BNr 

WAIT 
WATT 
WAIT 
,KNDC 
f»^OSENDl MOV 
PTS 



TOHOST 
NOSEND 



fSP)+fCHAH 



»AND IN rOCAL, 



I WAIT POP A CnnPTiE OF I vTtiRi'PTS 



fNOW RESTORE CHAR, 



I TXTHAN, THK TEXT HANDLKR, INSERTS THE CHARACTER TN 9SP CPUT 

I THERE BY THE fOCAL OUTPUT RO»JTTNE) INTO THE TEXT FILE, 

p WHEN IT RECEIVES A LF LATER THAN END OF FII,Eiil00 BYTES, OR 

I WHEN IT HAS FltLED THE SCREEN, IT CALLS TCLEAR 

I TO CLEAR THE TEXT FILE, 



TXTHANI MOV 
MOV 
BIC 
CMPB 
BNE 
INC 
BR 

8ILENTI CMPB 
BNE 
MOVB 
CMPB 
BEO 
CMPB 
BEO 
CMPB 
BLT 

LrCHARl INC 
TST 
BNf 
CMP 
BLT 

L^SfLI J8ft 
ifl 

ADDCHRl MOVB 
CMf 
BQE 
CMP 
BLT 
INC 

NOTFULf INC 
MOVB 

TXTDUNI MOV 
RTS 



CHAR»«(5P) 

4(SP),CHAR 

l200fCHAR 

CHARflBELL 

SILENT 

9»6TSTAT 

TXTDUN 

CHAR|i33 

,♦6 

l44fCHAR 

CHAR»ICR 

ADOCHR 

CHARiltr 

LFCHAR 

CHAR* 140 

TXTDUN 

ADDCHR 

LF8 

ENDFLC 

LA8TL 

tr8»l40 

ADDCHR 

PC f TCLEAR 

TXTDUN 

CMARfllNPTR 

INtTRf #LOC0« 

LASTL 

lNPTR#iLOC«« 

NOTFUL 
ENDFLG 
INPTR 

I177*»INPTR 

fSP)+fCHAR 

PC 



I SAVE REGISTER 
»GET INPUT CHAR 
fCLEAR BIT FOCAL SETS 
fON BELL 

fRING THE BELL 

»0N ALTMODE# 



ICR? 
lYES, 
|LF7 
I YES, 



lECHO $ SIGN 
ADD IT TO FILE, 



'.iFDr TERM 



00 CHECK LINES ON SCREEN 
lANY OTHER CONTROL CHAR? 
I YES, IGNORE IT 
IIMSERT ALL OTHER CHAR.S 
IBUMP LIME COUNT 
fENDFLO*! MEANS LAST LINE 
lYES, LAST LINE 
f SCREEN fILLEOt 

I NO, TREAT LP him ANX OTHER CHAR, 

» CLEAR TEXT BUFFiR STARTING AT TXTPTR 

lAND WAIT FOR NEXT CHAR, 

I MOVE NEW CHAR , IN 
6*DDS1EB*2 PREACHED END OP FILE? 

I THEN CLEAR THE FILE 
'6*DDSIEE-110 PIF PTR PAST END-72 CHAR.S, 

PMAKE THIS THE LAST LINE, 
f INPTR PT,S TO NEXT BYTE 
I INSERT CURSOR THERE 

» RESTORE REGISTER 
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^577 




021016 






>DB0T*LPSSI2 


ITERM CODE FOLLOWS LPS CODE AT START OF DNFW 


1578 
3579 








iK CHECKS FOR * 


F AND *T, OM 


IT THRO'^'S THE TOHOST FLAC; 


35fl0 










TELLS KKYBOARD INPUT TO 


GO TO EITHER THF PDP-»3vi OR TO FOCAL, 












IT THROWS THE TOFOCL FLAG WHICH TFLLS Pnpwl<» TNPUT WHFTHEF TO 


35ft2 








fGO DIRECTLY TO 


THF SCPEFN OR TO FOCAL, 


35fi3 




P 1 1 '6 




Kl 


MOV 


9»TKS+2»»(SP5 


IGET CHARACTER FROM KEYBOARD 


35ft4 


023022 


121 L,27 


^■^'y^ 5 




CMPB 


9SP#t206 


f*F? 


3^85 


023056 


f55t. 






BNK 


K'OTF 






023010 


i;^5i37 


23156 




COMB 


TOHOST 


lYES , FLOP FLAG 


3587 


023034 


e"l3737 


C^00101 


175610 


MOV 


»101»&ITFNTN 


»AND ALLOW I^ITKRRUPTS IF NOT 0*^ YET 


I5fl8 


021042 


000421 






BR 


MOFKO 


lAND IGNORE THIS CHARACTER 


1S«9 


023044 


121627 


000224 


KOTFl 


CMPB 


0SP#i224 


f *T? 


3590 


0230S0 


001006 






BNF 


NOTT 




359J 


023052 


105137 


023157 




COMB 


TOFOCL 


lYES, FLOP FLAG 


1592 


0230'<6 


0010J 3 






BSF 


NOEKO 


fAND IF FOCAL LISTENING TO 10#IGNORE CHAR 


3593 


023060 


012716 


000J37 




MOV 


•337#9SP 


lELSE, REPLACE CHAR WITH 


1594 


023064 


000412 






BR 


GOFOC 


lAND GIVE IT TO FOCAL 


3B9S 


023066 


105737 


0231S6 


NOTTI 


TSTB 


TOHOST 


fSENDlNGG TO FOCALT 


1596 


023072 


00S407 






BEQ 


GOFOC 


PIF SO, GO DO EXECUTE USUAL CODE 


1597 


023074 


10S73? 


17S614 


TEST10I 


TSTB 


••TENOUT 


PELSE, WHEN READY, 


3598 


023100 


00237S 






BGE 


TEST10 




3599 


023102 


111637 


175616 




MOVB 


9SP,9ITE!}0UT*2 


PSEND CHAR TO THE 10 


36(^0 


023106 


005726 




NOEKOI 


T8T 


(SP)* 


PRESET STACK, 


36911 


023110 


000002 






RTI 




lAND EXIT 


36«<2 


023112 


000137 


010114 


GOroci 


JMP 


KIMT+4 


pCO RE-ENTER KEYBOARD INTERRUPT ROUTINE 


36«!53 
















3604 








ITEMINT 


HANDLES 


PDP-10 INPUT INTERRUPTS, IT SENDS THE CHARACTER EITHER 


16«B 








iTO BOTH roCAL 


AND THE SCREEN OR JUST TO THE SCREEN DEPENDING ON THE 


j6<^.. 








1 STATE 


OF THE FLAG LABELLED »TOFOCL« 


16^7 
















369)8 


023116 


013746 


175612 


TENINTI 


MOV 


»iTENIfl*2#»CSP) 


IGET INPUT 


365»9 


023122 


021627 


000377 




CMP 


C8P5#I377 


p IGNORE RUBOUTS 


3610 


023126 


001411 






BEQ 


IGNORE 




3611 


025130 


105717 


025187 




TSTB 


TOFOCL 


pFOCAL LISTENING TO 10? 


3612 


023134 


00H04 






BEQ 


NORESP 




3613 


023136 


005737 


001636 




TST 


KIN 


POVERFLOW? 


3614 


023142 


100763 






BMt 


GOFOC 




36iS 


023144 


000402 






BR 


IGNORE 




3616 


023146 


004737 


02i00e 




J8R 


PCfTXTHAN 


fir FOCAL DEAF TO 10, JUST ECHO CHAR,, 


3617 


023152 


005786 




IQKQREi 


fiT 


CSP)* 


PRESET iTACK, 


3618 


023154 


000002 






RTI 




PAND RETURN 


3619 


023156 


000 




T0H08TI 


Utte 





p«l MEANS TERMINAL, MEANS FOCAL 


3650 


0231S7 


000 




Torocti 


.BYTE 





p«l MEANS LISTEN TO I0p MEANS DON'T 


3621 




001 






'.EHDC 




PEND OF TERMINAL HOOKUP CODE 


3622 




000 






,ENDC 




lEND OF GT40 CODE 


36? 3 




01' 330 






;end 


INIT 
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9166* 
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i nnn 
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V 13 O »3 w V 


1804 

ft u V^V 


181S 


18841 


1896 
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